diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 00:56:04 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 00:59:36 +0100 |
commit | 0ba8cad706c3a9d051e9780a86c6a0048984a5f8 (patch) | |
tree | 9be52ab6975bd47ed2388b1d4d8538a88288f07d /module/hnh | |
parent | Remove (hnh util) exports without values. (diff) | |
download | calp-0ba8cad706c3a9d051e9780a86c6a0048984a5f8.tar.gz calp-0ba8cad706c3a9d051e9780a86c6a0048984a5f8.tar.xz |
Remove define-many.
It was only used in one module, and provided litle clarity over a simple
set of define statementns.
Diffstat (limited to 'module/hnh')
-rw-r--r-- | module/hnh/util.scm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/module/hnh/util.scm b/module/hnh/util.scm index 90b23ca6..7fe44462 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -9,7 +9,7 @@ set/r! -> ->> set set-> aif awhen let-lazy let-env - case* define-many + case* and=>> label print-and-return begin1 @@ -211,17 +211,6 @@ val)))) -(define-syntax define-many - (syntax-rules () - [(_) (begin)] - [(_ def) (begin)] - [(_ (symbols ...) value rest ...) - (begin (define symbols value) ... - (define-many rest ...))] - [(_ def (symbols ...) value rest ...) - (begin (def symbols value) ... - (define-many def rest ...))])) - ;; Attach a label to a function, allowing it to call itself ;; without actually giving it a name (can also be thought ;; of as letrec-1). |