diff options
Diffstat (limited to 'src/boot.clj')
| -rw-r--r-- | src/boot.clj | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/boot.clj b/src/boot.clj index 5a9b1c4d..e53d2b80 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -49,7 +49,16 @@ (defn actor-of [state] (:actor ^state)) - + +(defn ! [#^clojure.lang.Actor a f & args] + (. a (send f args))) + +(defn actor-errors [#^clojure.lang.Actor a] + (. a (getErrors))) + +(defn clear-actor-errors [#^clojure.lang.Actor a] + (. a (clearErrors))) + ;;;;;;;;;;;;;;;;;;;; (def defmacro (fn [name & args] (list 'do @@ -776,6 +785,6 @@ int long float double short byte boolean aget aset aset-boolean aset-int aset-long aset-float aset-double aset-short aset-byte make-array - actor actor-of + actor actor-of ! )) |