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

Adding char-set-fold and char-set-for-each.

Browse source
This commit is contained in:
Alex Shinn 2014-05-13 21:55:43 +09:00
parent 80879d2683
commit d7e65edc96
3 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/chibi/char-set.sld
View file

@ -4,6 +4,7 @@
(export
Char-Set char-set? char-set-contains?
char-set ucs-range->char-set char-set-copy char-set-size
char-set-fold char-set-for-each
list->char-set char-set->list string->char-set char-set->string
char-set-adjoin! char-set-adjoin char-set-union char-set-union!
char-set-intersection char-set-intersection!

6
lib/chibi/char-set/extras.scm
View file

@ -10,6 +10,12 @@
(define char-set-size iset-size)
(define (char-set-fold kons knil cset)
(iset-fold (lambda (i acc) (kons (integer->char i) acc)) knil cset))
(define (char-set-for-each proc cset)
(iset-for-each (lambda (i) (proc (integer->char i))) cset))
(define (list->char-set ls)
(list->iset (map char->integer ls)))
(define (char-set->list cset)

1
lib/chibi/char-set/extras.sld
View file

@ -4,6 +4,7 @@
(include "extras.scm")
(export
char-set ucs-range->char-set char-set-copy char-set-size
char-set-fold char-set-for-each
list->char-set char-set->list string->char-set char-set->string
char-set-adjoin! char-set-adjoin char-set-union char-set-union!
char-set-intersection char-set-intersection!