From 046a81bfb4b95cb5c0ac8e9e7990dd7c64204458 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 29 Oct 2023 00:14:20 +0200
Subject: Remove and=>>.

It was a really nice procedure, but was largely made obsolete with the
introduction of the `do` notation.
---
 doc/ref/general/util.texi    | 6 ------
 module/hnh/util.scm          | 8 --------
 tests/unit/util/hnh-util.scm | 3 ---
 3 files changed, 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)
 
-- 
cgit v1.2.3