diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 22:04:12 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 22:04:12 +0200 |
| commit | e6f0df7910231b0132784a550885eb0d05b1d91f (patch) | |
| tree | f4e6ba0225e9c3a0be3ce16a8233390bf8ce4ab8 /module/util.scm | |
| parent | Ical output more modular. (diff) | |
| download | calp-e6f0df7910231b0132784a550885eb0d05b1d91f.tar.gz calp-e6f0df7910231b0132784a550885eb0d05b1d91f.tar.xz | |
Remove use-modules*.
Diffstat (limited to 'module/util.scm')
| -rw-r--r-- | module/util.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/module/util.scm b/module/util.scm index ebfa0ed6..fb0e0063 100644 --- a/module/util.scm +++ b/module/util.scm @@ -12,7 +12,6 @@ catch-multiple quote? re-export-modules - use-modules* -> ->> set set-> aif awhen tree-map let-lazy let-env case* define-many @@ -405,14 +404,6 @@ (cons (car rem) (loop (not flipflop) (cdr rem))) )))) -(define-macro (use-modules* . forms) - `(use-modules - ,@(concatenate - (map (lambda (form) - (map (lambda (sub) (list (car form) sub)) - (cadr form))) - forms)))) - (define-syntax -> |