From eeebc51438adec0f9b572420908184471f7eaa96 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 7 May 2019 11:46:10 +0200
Subject: Add preliminary use-modules* form.

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

diff --git a/module/util.scm b/module/util.scm
index dd5f3057..c41b8061 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -9,6 +9,7 @@
                 catch-multiple
                 quote?
                 re-export-modules
+                use-modules*
                 tree-map let-lazy)
   #:replace (let* set! define-syntax
                   when unless if))
@@ -333,3 +334,11 @@
             (assq-set! alist k (append v (or o '())))))
         (copy-tree a) b))
 
+
+(define-macro (use-modules* . forms)
+  `(use-modules
+    ,@(concatenate
+       (map (lambda (form)
+              (map (lambda (sub) (list (car form) sub))
+                   (cadr form)))
+            forms))))
-- 
cgit v1.2.3