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

Using char-set-for-each instead of for-each on char-set->list.

Browse source
This commit is contained in:
Alex Shinn 2014-05-13 23:02:40 +09:00
parent a886737b20
commit b24ce3293e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/regexp.scm
View file

@ -60,11 +60,11 @@
(define (char-set-ci cset) (define (char-set-ci cset)
(let ((res (char-set))) (let ((res (char-set)))
(for-each (char-set-for-each
(lambda (ch) (lambda (ch)
(char-set-adjoin! res (char-upcase ch)) (char-set-adjoin! res (char-upcase ch))
(char-set-adjoin! res (char-downcase ch))) (char-set-adjoin! res (char-downcase ch)))
(char-set->list cset)) cset)
res)) res))
(define (make-char-state ch flags next) (define (make-char-state ch flags next)