diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-20 22:06:00 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-20 22:06:00 +0100 |
commit | b32b297cd6bf2767f980dbe9523ed02a38e0efb7 (patch) | |
tree | 4cfc9c5dbef6d9f2803046e8f3aac0428917c647 /module/calp | |
parent | Add documenttation for javascript rewrite. (diff) | |
download | calp-b32b297cd6bf2767f980dbe9523ed02a38e0efb7.tar.gz calp-b32b297cd6bf2767f980dbe9523ed02a38e0efb7.tar.xz |
Remove re-export-modules
A weird special form which was only used once, and didn't add much
clarity above what we actually did.
Diffstat (limited to 'module/calp')
-rw-r--r-- | module/calp/util.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/module/calp/util.scm b/module/calp/util.scm index 77dd9316..1f423756 100644 --- a/module/calp/util.scm +++ b/module/calp/util.scm @@ -9,7 +9,6 @@ set/r! catch-multiple quote? - re-export-modules -> ->> set set-> aif awhen let-lazy let-env case* define-many @@ -339,14 +338,6 @@ (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 ...))) - ...)))) - ;; Merges two association lists, comparing with eq. ;; The cdrs in all pairs in both lists should be lists, ;; If a key is present in both then the contents of b is |