From e0fe5252b8a2efa5cc1132ecc5baa80873ac4c57 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 4 Jul 2020 01:58:35 +0200
Subject: Add insert-ordered.

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

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index 8cc0e032..00af7258 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -439,6 +439,19 @@
             (cons (car rem) (loop (not flipflop) (cdr rem)))
             ))))
 
+;; @example
+;; (insert-ordered 5 (iota 10))
+;; ⇒ (0 1 2 3 4 5 5 6 7 8 9)
+;; @end example
+(define*-public (insert-ordered item collection optional: (< <))
+  (cond [(null? collection)
+         (list item)]
+        [(< item (car collection))
+         (cons item collection)]
+        [else
+         (cons (car collection)
+               (insert-ordered item (cdr collection) <))]))
+
 
 
 (define-syntax ->
-- 
cgit v1.2.3