From e6f0df7910231b0132784a550885eb0d05b1d91f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 26 Apr 2020 22:04:12 +0200
Subject: Remove use-modules*.

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

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index ebfa0ed6..fb0e0063 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -12,7 +12,6 @@
                 catch-multiple
                 quote?
                 re-export-modules
-                use-modules*
                 -> ->> set set-> aif awhen
                 tree-map let-lazy let-env
                 case* define-many
@@ -405,14 +404,6 @@
             (cons (car rem) (loop (not flipflop) (cdr rem)))
             ))))
 
-(define-macro (use-modules* . forms)
-  `(use-modules
-    ,@(concatenate
-       (map (lambda (form)
-              (map (lambda (sub) (list (car form) sub))
-                   (cadr form)))
-            forms))))
-
 
 
 (define-syntax ->
-- 
cgit v1.2.3