diff options
Diffstat (limited to 'module/hnh/util.scm')
| -rw-r--r-- | module/hnh/util.scm | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/module/hnh/util.scm b/module/hnh/util.scm index 2ae5d2c4..680d85eb 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -44,7 +44,6 @@ insert-ordered -> ->> - and=>> downcase-symbol group @@ -485,13 +484,6 @@ ((->> obj func rest ...) (->> (func obj) rest ...)))) -(define-syntax and=>> - (syntax-rules () - [(_ value) value] - [(_ value proc rest ...) - (and=>> (and=> value proc) - rest ...)])) - (define (downcase-symbol symb) (-> symb symbol->string |