diff options
Diffstat (limited to 'module/hnh/util.scm')
-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 |