Small fixes.

2023-07-07 10:10:07 +02:00 · 2023-07-07 10:10:07 +02:00 · d756c8e47a
commit d756c8e47a
parent 3a3af066af
2 changed files with 3 additions and 2 deletions
--- a/src/util-bst-dict.scm
+++ b/src/util-bst-dict.scm
@ -10,7 +10,7 @@
  list->bdict
  bdict-find-value
  bdict-ref
-  bdict-filter-alues
+  bdict-filter-values
  bdict-keys
  bdict-map-list
  bdict-map-dict
--- a/src/util-bst.scm
+++ b/src/util-bst.scm
@ -290,7 +290,8 @@
 			      (let ((kv (vector-ref vec idx)))
 				(loop (if (pred? (car kv) (cdr kv))
 					  (cons kv res)
-					  res)))))))
+					  res)
+				      (sub1 idx)))))))
 	       (cddr kvv))))

 (define/doc (bst-balance bst)