Update changelog and add tests for loop/recur.

CHANGELOG.md

@@ -49,6 +49,7 @@ and macros that are not heavily used):
 - Add `map'`, `bind'` and `mapcat'` variants that uses inline
   composition (wihtout microtasking, read more on docs).
 - Make `chain` use the `map'` variant for batch computations.
+- Add `loop/recur` syntax abstraction.
 
 
 

src/promesa/core.cljc

@@ -416,10 +416,11 @@
           names (mapv first bindings)
           fvals (mapv second bindings)
           syms (mapv gensym names)]
-    `(letfn [(~INTERNAL_LOOP_FN_NAME [~@syms]
-              (-> (p/all [~@syms])
-                  (p/then (fn [[~@names]] (do! ~@body)))))]
-       (~INTERNAL_LOOP_FN_NAME ~@fvals))))
+    `(do!
+      (letfn [(~INTERNAL_LOOP_FN_NAME [~@syms]
+               (-> (p/all [~@syms])
+                   (p/then (fn [[~@names]] (do! ~@body)))))]
+        (~INTERNAL_LOOP_FN_NAME ~@fvals)))))
 
 (defmacro recur
   [& args]

test/promesa/tests/test_core.cljc

@@ -441,3 +441,12 @@
     #?(:cljs (t/async done (p/do! (test) (done)))
        :clj @(test))))
 
+(t/deftest loop-and-recur
+  (let [p1 (p/loop [a (p/delay 50 0)]
+             (if (= a 5)
+               a
+               (p/recur (p/delay 50 (inc a)))))
+        test #(->> (p/race [p1 (p/delay 400 10)])
+                   (p/map (fn [res] (t/is (= res 5)))))]
+    #?(:cljs (t/async done (p/do! (test) (done)))
+       :clj @(test))))