From 17fd6dfcf7afb04a8d898c46d55c05090735898a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 1 Apr 2020 20:59:39 +0200
Subject: Extend for syntax to support multiple variables.

---
 module/util.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index e8a0cc55..8ccfa27e 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -82,6 +82,9 @@
 
 (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>))
     ((for <var> in <collection> b1 body ...)
      (for-each (lambda (<var>) b1 body ...)
                <collection>))))
-- 
cgit v1.2.3