usable names for async-loop and async-recur

hiredman · Nov 5, 2010 · 0a2b645 · 0a2b645
1 parent 4fa8b9f
commit 0a2b645
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/geister/core.clj b/src/geister/core.clj
@@ -126,6 +126,12 @@
                     b#
                     (task b#))))))))
 
+(defmacro async-loop [& body]
+  `(loop′ ~@body))
+
+(defmacro async-recur [& body]
+  `(recur′ ~@body))
+
 (comment
 
   (async [n (task (+ 1 2))