diff options
| -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) |