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 | |
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.
-rw-r--r-- | doc/ref/general/util.texi | 6 | ||||
-rw-r--r-- | module/hnh/util.scm | 8 | ||||
-rw-r--r-- | tests/unit/util/hnh-util.scm | 3 |
3 files changed, 0 insertions, 17 deletions
diff --git a/doc/ref/general/util.texi b/doc/ref/general/util.texi index caf67c47..f353a5bd 100644 --- a/doc/ref/general/util.texi +++ b/doc/ref/general/util.texi @@ -264,12 +264,6 @@ list, in which case @var{->} inserts item as the second argument (after the operand), and @var{->>} inserts it last. @end defmac - -@defmac and=>> value procedures ... -Chained application of @code{and=>}, so applies each procedure from -left to right, stopping when one return @code{#f}. -@end defmac - @defun downcase-symbol Converts a symbol to lower case. @end defun 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 diff --git a/tests/unit/util/hnh-util.scm b/tests/unit/util/hnh-util.scm index 3e8fbb6a..bee38ddb 100644 --- a/tests/unit/util/hnh-util.scm +++ b/tests/unit/util/hnh-util.scm @@ -392,9 +392,6 @@ (test-group "set->" 'TODO) -(test-group "and=>" - 'TODO) - (test-group "downcase-symbol" 'TODO) |