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

Fix node removal.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-18 14:54:11 +02:00
parent bebb8af611
commit 0126efb6f6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -221,8 +221,8 @@
(bst-node-right n)
#f))
(if (< k nk)
(set-bst-node-left (loop (bst-node-left n)))
(set-bst-node-right (loop (bst-node-right n))))))
(set-bst-node-left n (loop (bst-node-left n)))
(set-bst-node-right n (loop (bst-node-right n))))))
(if (and (not (null? nos))
(car nos))
#f