I agree, chang is most likely not being passed a ref, specifically the
part that does:
row-dev (eval (get-next-row inc (first val)))
(chang row-dev keyword-dev-right (@alon key))
Looks to me like row-dev is not a ref, but I can't tell for sure!
On Jun 1, 4:36 am, Daniel Lyons <[email protected]> wrote:
> On May 31, 2009, at 11:38 AM, Emeka wrote:
>
>
>
> > Hello All
>
> > (defn chang[f key hj]
> > (dosync (ref-set f (assoc @f key hj))))
>
> > (defn proceed-now-right [alon key]
> > (let [val (extract-num alon key)
> > row-dev (eval (get-next-row inc (first val)))
> > keyword-dev-right (get-key inc (second val))
> > cell-empty-right (check-cell-empty? keyword-dev-right row-
> > dev)]
> > (if cell-empty-right
> > (do (chang row-dev keyword-dev-right (@alon key)) (chang
> > alon key \space))
> > (println "can't do this"))))
>
> > I found that each time I try form proceed-now-right I get error when
> > IF is true. Why is it so? The function chang works on it own...
>
> What parameters are you calling proceed-now-right with?
>
> —
> Daniel Lyonshttp://www.storytotell.org-- Tell It!
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
