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 | |
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 '')
-rw-r--r-- | module/calp/util.scm | 9 | ||||
-rw-r--r-- | module/vcomponent.scm | 6 |
2 files changed, 4 insertions, 11 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 diff --git a/module/vcomponent.scm b/module/vcomponent.scm index a53523c0..226b740f 100644 --- a/module/vcomponent.scm +++ b/module/vcomponent.scm @@ -7,8 +7,10 @@ :re-export (make-vcomponent parse-cal-path parse-calendar)) -(re-export-modules (vcomponent base) - (vcomponent instance methods)) +(define cm (module-public-interface (current-module))) +(module-use! cm (resolve-interface '(vcomponent base))) +(module-use! cm (resolve-interface '(vcomponent instance methods))) + (define-config calendar-files '() description: "Which files to parse. Takes a list of paths or a single string which will be globbed." |