From 16e68df7cacf367bffa06ec2ca23ee151b2dfa6c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 16 Jul 2022 23:35:50 +0200
Subject: Add break/all.

---
 module/hnh/util.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'module')

diff --git a/module/hnh/util.scm b/module/hnh/util.scm
index 9a45704b..096e38c5 100644
--- a/module/hnh/util.scm
+++ b/module/hnh/util.scm
@@ -36,6 +36,7 @@
            split-by
            split-by-one-of
 
+           break/all
 
            span-upto
            cross-product
@@ -367,6 +368,15 @@
            (lambda (first rest) (cons (cdr first) rest))))))
 
 
+(define (break/all predicate lst)
+  (let loop ((lst lst))
+    (if (null? lst)
+        '(())
+      (let ((fst rest (break predicate lst)))
+        (if (null? rest)
+            (list fst)
+            (cons fst (loop (cdr rest))))))))
+
 ;; Simar to span from srfi-1, but never takes more than
 ;; @var{count} items. Can however still take less.
 ;; @example
-- 
cgit v1.2.3