Fix a bug in fibers-batch-map (and related procedures)

And add more tests.
2024-12-27 22:14:51 +00:00 · 2024-12-27 22:14:51 +00:00 · 4e791aff68
commit 4e791aff68
parent e8ab6f23d8
2 changed files with 21 additions and 1 deletions
--- a/knots/parallelism.scm
+++ b/knots/parallelism.scm
@ -79,7 +79,10 @@
  (define result-vec
    (make-vector vecs-length))

-  (let loop ((next-to-process-index 0)
+  (let loop ((next-to-process-index
+              (if (= 0 vecs-length)
+                  #f
+                  0))
             (channel-indexes '()))
    (if (and (eq? #f next-to-process-index)
             (null? channel-indexes))