diff options
Diffstat (limited to '')
-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). |