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? (ldict-equal?
(make-brmember '|1234| "members/1234" '(|member|)) (make-brmember '|1234| "members/1234" '(|member|))
(make-ldict (make-ldict
`((file-name . |1234|) `((TAG . ,TAG-BRMEMBER)
(TAG . ,TAG-BRMEMBER) (file-name . |1234|)
(file-path . "members/1234") (file-path . "members/1234")
(symlinks |member|) (symlinks |member|)
(id . 1234))))) (id . 1234)))))

10
src/util-bst.scm
View file

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