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...
Regards,
Emeka
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
