From 6105fed0345a7f79d15cd966c8207a8b1a1957e2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Fri, 3 May 2019 17:26:46 +0200
Subject: Fix re-export-modules.

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

(limited to 'module')

diff --git a/module/util.scm b/module/util.scm
index 7dc2542c..62dc870a 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -8,6 +8,7 @@
                 find-min
                 catch-multiple
                 quote?
+                re-export-modules
                 tree-map let-lazy)
   #:replace (let* set! define-syntax
                   when unless if))
@@ -316,3 +317,11 @@
         (else
          (cons (proc (car dotted-list))
                (map/dotted proc (cdr dotted-list))))))
+
+(define-syntax re-export-modules
+  (syntax-rules ()
+    ((_ (mod ...) ...)
+     (begin
+       (module-use! (module-public-interface (current-module))
+                    (resolve-interface '(mod ...)))
+       ...))))
-- 
cgit v1.2.3