On Jun 1, 2009, at 4:55 AM, Emeka wrote:
> This gives you the link to the whole code.
> http://friendpaste.com/C3xbF1r3F3Mehnn8CCBUm
> . It is still not cleaned..pretty ugly, I am ashamed to show it
> off at all :)
Thanks, and you should be! :) Of course the only way to get better is
to
Dan and Tim,
This gives you the link to the whole code.
http://friendpaste.com/C3xbF1r3F3Mehnn8CCBUm. It is still not
cleaned..pretty ugly, I am ashamed to show it off at all :)
Regards,
Emeka
On Mon, Jun 1, 2009 at 7:50 AM, Timothy Pratley wrote:
>
> I agree, chang is most likely not bei
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
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
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-cel
