std/iter: allow interjection of filters after any binding in for*

not just the last.
adam-7 · Nov 11, 2019 · 1e75922 · 1e75922
1 parent dd7a8e0
commit 1e75922
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/std/iter.ss b/src/std/iter.ss
@@ -438,12 +438,12 @@
      (generate-for #'(bind ...) #'(not expr) #'(body ...)))))
 
 (defrules for* (when unless)
-  ((_ (bind when expr) body ...)
+  ((recur (bind when expr . rest) body ...)
    (for-binding? #'bind)
-   (for (bind when expr) body ...))
-  ((_ (bind unless expr) body ...)
+   (for (bind when expr) (recur rest body ...)))
+  ((recur (bind unless expr . rest) body ...)
    (for-binding? #'bind)
-   (for (bind unless expr) body ...))
+   (for (bind unless expr) (recur rest body ...)))
   ((recur (bind . rest) body ...)
    (for-binding? #'bind)
    (for (bind) (recur rest body ...)))