From 6d7639e56db28ee1f3429f2e8f5bc38892d2b846 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 7 Jul 2023 10:01:35 +0200
Subject: [PATCH] Implement missing list->bst.

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

diff --git a/src/util-bst.scm b/src/util-bst.scm
index 9878014..ae0b5fb 100644
--- a/src/util-bst.scm
+++ b/src/util-bst.scm
@@ -32,11 +32,14 @@
   bst-map-list
   bst-map-dict
 
+  list->bst
+
   util-bst-tests!
   )
 
  (import scheme
 	 (chicken condition)
+	 (chicken sort)
 	 util-tag
 	 testing)
 
@@ -334,6 +337,16 @@
 				   (loop (cddr n))))
 		       #f))))
 
+ (define/doc (list->bst lst subtag EQ? <?)
+   ("Converts list of pairs into BST dictionary.")
+   (kvv->bst
+    (cons TAG-KVV
+	  (cons (list->vector
+		 (sort lst (lambda (akv bkv)
+			     (<? (car akv) (car bkv)))))
+		(cons subtag
+		      (cons EQ? <?))))))
+
  ;; Module self-tests
  (define (util-bst-tests!)
    (run-tests