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

Small fixes.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-07 10:10:07 +02:00
parent 3a3af066af
commit d756c8e47a
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/util-bst-dict.scm
View file

@ -10,7 +10,7 @@
list->bdict list->bdict
bdict-find-value bdict-find-value
bdict-ref bdict-ref
bdict-filter-alues bdict-filter-values
bdict-keys bdict-keys
bdict-map-list bdict-map-list
bdict-map-dict bdict-map-dict

3
src/util-bst.scm
View file

@ -290,7 +290,8 @@
(let ((kv (vector-ref vec idx))) (let ((kv (vector-ref vec idx)))
(loop (if (pred? (car kv) (cdr kv)) (loop (if (pred? (car kv) (cdr kv))
(cons kv res) (cons kv res)
res))))))) res)
(sub1 idx)))))))
(cddr kvv)))) (cddr kvv))))
(define/doc (bst-balance bst) (define/doc (bst-balance bst)