From d756c8e47a05cff0b5d036857ef95a5f8b2bb21d 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:10:07 +0200
Subject: [PATCH] Small fixes.

---
 src/util-bst-dict.scm | 2 +-
 src/util-bst.scm      | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/util-bst-dict.scm b/src/util-bst-dict.scm
index 81afd9c..aa82d9a 100644
--- 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
diff --git a/src/util-bst.scm b/src/util-bst.scm
index 2e0f450..b63550b 100644
--- 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)