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

Fixing iset<=.

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

5
lib/chibi/iset/iterators.scm
View file

@ -103,12 +103,13 @@
(else
(let ((i1 (iset-ref is1 cur1))
(i2 (iset-ref is1 cur2)))
(cond ((< i1 i2)
(lp (iset-cursor-next is1 cur1) cur2))
(cond ((> i1 i2)
(lp cur1 (iset-cursor-next is2 cur2)))
((= i1 i2)
(lp (iset-cursor-next is1 cur1)
(iset-cursor-next is2 cur2)))
(else
;; (< i1 i2) - i1 won't occur in is2
#f)))))))
(define (iset= . o)

3
tests/iset-tests.scm
View file

@ -97,4 +97,7 @@
(test '(2 3 4)
(iset->list (iset-map (lambda (i) (+ i 1)) (iset 1 2 3))))
(test-assert (iset<= (iset 97) (iset 97 117)))
(test-assert (iset<= (iset 117) (iset 97 117)))
(test-end)