diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-29 00:14:20 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
commit | 046a81bfb4b95cb5c0ac8e9e7990dd7c64204458 (patch) | |
tree | 6d91ab83d753a065e99f673e8958777304491203 /module/hnh | |
parent | Add tests for base module-introspection module. (diff) | |
download | calp-046a81bfb4b95cb5c0ac8e9e7990dd7c64204458.tar.gz calp-046a81bfb4b95cb5c0ac8e9e7990dd7c64204458.tar.xz |
Remove and=>>.
It was a really nice procedure, but was largely made obsolete with the
introduction of the `do` notation.
Diffstat (limited to 'module/hnh')
-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 |