From 96d35184bae81888352645ad28efa279c3d5e322 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Feb 2023 01:08:16 +0100
Subject: Extend `for'-macro to allow improper list elements.

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

(limited to 'module/hnh/util.scm')

diff --git a/module/hnh/util.scm b/module/hnh/util.scm
index ffac17bd..36b56c58 100644
--- a/module/hnh/util.scm
+++ b/module/hnh/util.scm
@@ -118,6 +118,9 @@
     ((for (<var> <vars> ...) in <collection> b1 body ...)
      (map ((@ (ice-9 match) match-lambda) [(<var> <vars> ...) b1 body ...])
           <collection>))
+    ((for (<var> <vars> ... . <tail>) in <collection> b1 body ...)
+     (map ((@ (ice-9 match) match-lambda) [(<var> <vars> ... . <tail>) b1 body ...])
+          <collection>))
     ((for <var> in <collection> b1 body ...)
      (map (lambda (<var>) b1 body ...)
           <collection>))))
-- 
cgit v1.2.3