diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-01 03:57:53 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:14:09 +0200 |
| commit | f50f97fb8e050cc050c33ccf0d851b2437def68c (patch) | |
| tree | 84abc4ae86f7aacb4e2ea9924acef0e64941e0a7 /module/hnh | |
| parent | Move each imported symbol to own line for easier removal. (diff) | |
| download | calp-f50f97fb8e050cc050c33ccf0d851b2437def68c.tar.gz calp-f50f97fb8e050cc050c33ccf0d851b2437def68c.tar.xz | |
Remove case*.
It has its uses, but like others, its extra weight.
Diffstat (limited to 'module/hnh')
| -rw-r--r-- | module/hnh/util.scm | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/module/hnh/util.scm b/module/hnh/util.scm index 46557e38..d2c0dd5f 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -11,7 +11,6 @@ begin1 print-and-return swap - case* set/r! label sort* sort*! @@ -142,24 +141,6 @@ (lambda args (apply f (reverse args)))) -(define-syntax case*% - (syntax-rules (else) - [(_ _ else) - #t] - [(_ invalue (value ...)) - (memv invalue (list value ...))] - #; - [(_ invalue target) - (eq? invalue target)])) - -;; Like `case', but evals the case parameters -(define-syntax case* - (syntax-rules (else) - [(_ invalue (cases body ...) ...) - (cond ((case*% invalue cases) - body ...) - ...)])) - ;; Allow set to work on multiple values at once, ;; similar to Common Lisp's @var{setf} ;; @example |