Permalink
Browse files

silly demo bugs

  • Loading branch information...
1 parent 6a0cd34 commit 076141aecf19a66652da76cd4a1ec1fcb876eb53 @stuarthalloway committed Sep 13, 2009
Showing with 2 additions and 2 deletions.
  1. +2 −2 examples/pi.clj
View
4 examples/pi.clj
@@ -58,7 +58,7 @@
(let [agt (agent {:in-circle 0 :total 0})
continue (atom true)
iter (fn sim [a-val]
- (when continue (send-off *agent* sim))
+ (when @continue (send-off *agent* sim))
(run-simulation a-val iter-count))]
(send-off agt iter)
- {:guesser agt :continue atom}))
+ {:guesser agt :continue continue}))

0 comments on commit 076141a

Please sign in to comment.