From a64ab232c679be0dc9d879677aa42b2fa22a8436 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 16 Jan 2024 21:50:13 +0100
Subject: [PATCH] Fix tests.

---
 src/brmember.scm |  4 ++--
 src/util-bst.scm | 10 ++++++----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/brmember.scm b/src/brmember.scm
index fb9e07e..e83c9dd 100644
--- a/src/brmember.scm
+++ b/src/brmember.scm
@@ -499,8 +499,8 @@
 	       (ldict-equal?
 		(make-brmember '|1234| "members/1234" '(|member|))
 		(make-ldict
-		 `((file-name . |1234|)
-		   (TAG . ,TAG-BRMEMBER)
+		 `((TAG . ,TAG-BRMEMBER)
+		   (file-name . |1234|)
 		   (file-path . "members/1234")
 		   (symlinks |member|)
 		   (id . 1234)))))
diff --git a/src/util-bst.scm b/src/util-bst.scm
index c27d518..236fdd3 100644
--- a/src/util-bst.scm
+++ b/src/util-bst.scm
@@ -286,10 +286,12 @@
        (call/cc
 	(lambda (cc)
 	  (set! break cc)
-	  (if resume
-	      (resume '())
-	      (bst-iter-kv bst yield))
-	  #f)))))
+	  (cond (resume
+		 (resume '())
+		 (break #f))
+		(else
+		 (bst-iter-kv bst yield)
+		 (break #f))))))))
 
  (define/doc (bst-keys bst)
    ("Returns all the keys contained in given dictionary.")