brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix tests.

Browse source
This commit is contained in:
Dominik Pantůček 2024-01-16 21:50:13 +01:00
parent 2baffe570b
commit a64ab232c6
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/brmember.scm
View file

@ -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)))))

8
src/util-bst.scm
View file

@ -286,10 +286,12 @@
(call/cc
(lambda (cc)
(set! break cc)
(if resume
(cond (resume
(resume '())
(bst-iter-kv bst yield))
#f)))))
(break #f))
(else
(bst-iter-kv bst yield)
(break #f))))))))
(define/doc (bst-keys bst)
("Returns all the keys contained in given dictionary.")