Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix for recent iset-adjoin-node! changes.

Browse source
This commit is contained in:
Alex Shinn 2014-05-19 07:27:20 +09:00
parent 0c7a559627
commit 2b3a85d7e7
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/iset/constructors.scm
View file

@ -121,13 +121,13 @@
(cond (cond
;; aaaa... ;; aaaa...
;; ...bbbb ;; ...bbbb
((< b-end a-start) ((<= b-end a-start)
(if (iset-should-merge-left? a b) (if (iset-should-merge-left? a b)
(iset-merge-left! a b) (iset-merge-left! a b)
(iset-adjoin-node-left! a b))) (iset-adjoin-node-left! a b)))
;; ...aaaa ;; ...aaaa
;; bbbb... ;; bbbb...
((> b-start a-end) ((>= b-start a-end)
(if (iset-should-merge-right? a b) (if (iset-should-merge-right? a b)
(iset-merge-right! a b) (iset-merge-right! a b)
(iset-adjoin-node-right! a b))) (iset-adjoin-node-right! a b)))

3
tests/iset-tests.scm
View file

@ -100,4 +100,7 @@
(test-assert (iset<= (iset 97) (iset 97 117))) (test-assert (iset<= (iset 97) (iset 97 117)))
(test-assert (iset<= (iset 117) (iset 97 117))) (test-assert (iset<= (iset 117) (iset 97 117)))
(test-assert (iset= (iset-union (iset 1 3) (iset 3 4)) (iset 1 3 4)))
(test-assert (iset= (iset-union (iset 3) (iset 1 3)) (iset 1 3)))
(test-end) (test-end)