diff options
Diffstat (limited to 'module/util.scm')
-rw-r--r-- | module/util.scm | 9 |
1 files changed, 9 insertions, 0 deletions
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 ...))) + ...)))) |