From 33b4202308bafbd7c2835679323469d14ed426d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 1 Jun 2020 13:06:05 +0200
Subject: Change for loop from for-each to map.

---
 module/util.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index 08152c7c..54a57a2c 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -89,11 +89,11 @@
 (define-syntax for
   (syntax-rules (in)
     ((for (<var> <vars> ...) in <collection> b1 body ...)
-     (for-each ((@ (ice-9 match) match-lambda) [(<var> <vars> ...) b1 body ...])
-               <collection>))
+     (map ((@ (ice-9 match) match-lambda) [(<var> <vars> ...) b1 body ...])
+          <collection>))
     ((for <var> in <collection> b1 body ...)
-     (for-each (lambda (<var>) b1 body ...)
-               <collection>))))
+     (map (lambda (<var>) b1 body ...)
+          <collection>))))
 
 
 
-- 
cgit v1.2.3