From 4704e32fa8d1584153d4ad82fe7d2d7f9c6916cd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 20 Apr 2019 21:33:33 +0200
Subject: Add `for` macro.

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

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index 2bbdc274..a5d3d0dc 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -3,7 +3,7 @@
   #:use-module ((ice-9 optargs) #:select (define*-public))
   #:use-module ((sxml fold) #:select (fold-values))
   #:export (destructure-lambda let-multi fold-lists catch-let
-                               for-each-in
+                               for-each-in for
                                define-quick-record
                                mod! sort* sort*!
                                find-min)
@@ -36,6 +36,12 @@
 (define-syntax-rule (for-each-in lst proc)
   (for-each proc lst))
 
+(define-syntax for
+  (syntax-rules (in)
+    ((for <var> in <collection> b1 body ...)
+     (for-each (lambda (<var>) b1 body ...)
+               <collection>))))
+
 
 
 ;;; Helper macros to make define-quick-record better
-- 
cgit v1.2.3