Hi,

I tried your example and some weird sequence generates
java.util.concurrent.RejectedExecutionException (NO_SOURCE_FILE:0)


Here is the scenario:
Clojure
user=> (def counter (agent 0))
#'user/counter
user=> (send counter inc)
#<Agent clojure.lang.ag...@9e4585>
user=> @counter
1
user=> (def my-agent (agent 1))
#'user/my-agent
user=> (defn sleep-and-multiply [old-state ms]
  (Thread/sleep ms)
  (* old-state times))
java.lang.Exception: Unable to resolve symbol: times in this context
(NO_SOURCE_FILE:7)
user=> ;
(defn sleep-and-multiply [old-state n ms]
  (Thread/sleep ms)
  (* old-state n))
#'user/sleep-and-multiply
user=> (send-off my-agent sleep-and multiply 2 1500)
java.lang.Exception: Unable to resolve symbol: sleep-and in this
context (NO_SOURCE_FILE:12)
user=> (send-off my-agent sleep-and- multiply 2 1500)
java.lang.Exception: Unable to resolve symbol: sleep-and- in this
context (NO_SOURCE_FILE:13)
user=> (send-off my-agent sleep-and-multiply 2 1500)
#<Agent clojure.lang.ag...@9a99eb>
user=> (send-off my-agent sleep-and-multiply 3 1500)
#<Agent clojure.lang.ag...@9a99eb>
user=> (await my-agent)
nil
user=> (println "my-agent=" @my-agent)
my-agent= 6
nil
user=> (shutdown-agents)
nil
user=> (def my-agent (agent 10))
#'user/my-agent
user=> (defn sleep-and-multiply [old-state n ms]
 (Thread/sleep ms)
 (+ old-state n))
#'user/sleep-and-multiply
user=> (send-off my-agent sleep-and-multiply 7 1500)
java.util.concurrent.RejectedExecutionException (NO_SOURCE_FILE:0)
user=> (send-off my-agent sleep-and-multiply 3 1500)
#<Agent clojure.lang.ag...@3a5a9c>
user=> (send-off my-agent sleep-and-multiply 7 1500)
#<Agent clojure.lang.ag...@3a5a9c>
user=> (println "my-agent = " @my-agent)
my-agent =  10
nil
user=> (agent-errors my-agent)
nil
user=> (clear-agent-errors my-agent)
nil
user=> (println "my-agent = " @my-agent)
my-agent =  10
nil
user=> (send-off my-agent sleep-and-multiply 7 1500)
#<Agent clojure.lang.ag...@3a5a9c>
user=> (println "my-agent = " @my-agent)
my-agent =  10
nil
user=> (send-off my-agent sleep-and-multiply 3 1500)
#<Agent clojure.lang.ag...@3a5a9c>
user=> (println "my-agent = " @my-agent)
my-agent =  10
nil

Sun

--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups 
"Clojure" group.
To post to this group, send email to clojure@googlegroups.com
To unsubscribe from this group, send email to 
clojure+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---

Reply via email to