Merge pull request #166 from mraveloarinjaka/pmap-full

janet-lang · Jan 17, 2024 · 52d88ce · 52d88ce
2 parents d644da0 + 289c791
commit 52d88ce
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/spork/ev-utils.janet b/spork/ev-utils.janet
@@ -82,8 +82,9 @@
   (def chan (ev/chan))
   (def res (if (dictionary? data) @{} @[]))
   (join chan
-        (seq [[i x] :pairs data]
-          (ev/go (fiber/new (fn [] (put res i (f x))) :tp) nil chan)))
+        (tabseq [[i x] :pairs data
+                 :let [fib (ev/go (fiber/new (fn [] (put res i (f x))) :tp) nil chan)]]
+          fib fib))
   res)
 
 (defn pmap-limited