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

Fixing bug in iset-map.

Browse source
This commit is contained in:
Alex Shinn 2014-05-19 07:08:39 +09:00
parent 1eeed831a5
commit 184b2aaf9f
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -220,7 +220,7 @@
(apply iset-delete! (iset-copy iset) args)) (apply iset-delete! (iset-copy iset) args))
(define (iset-map proc iset) (define (iset-map proc iset)
(iset-fold (lambda (i is) (iset-adjoin! is i)) (make-iset) iset)) (iset-fold (lambda (i is) (iset-adjoin! is (proc i))) (make-iset) iset))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; High-level set operations. ;; High-level set operations.

3
tests/iset-tests.scm
View file

@ -94,4 +94,7 @@
(test-assert (iset-contains? (iset-union a b) 119)) (test-assert (iset-contains? (iset-union a b) 119))
(test-assert (iset-contains? (iset-union b a) 119))) (test-assert (iset-contains? (iset-union b a) 119)))
(test '(2 3 4)
(iset->list (iset-map (lambda (i) (+ i 1)) (iset 1 2 3))))
(test-end) (test-end)