diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-03 17:26:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-03 17:26:46 +0200 |
| commit | 6105fed0345a7f79d15cd966c8207a8b1a1957e2 (patch) | |
| tree | 004ab40556d508b35b7661c594a01d812dad1f5b | |
| parent | Replace if. (diff) | |
| download | calp-6105fed0345a7f79d15cd966c8207a8b1a1957e2.tar.gz calp-6105fed0345a7f79d15cd966c8207a8b1a1957e2.tar.xz | |
Fix re-export-modules.
| -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 ...))) + ...)))) |