comment fix: x->char-set does not accept char predicates
This commit is contained in:
parent
5f3c53746f
commit
abd81132dc
|
@ -532,7 +532,7 @@
|
||||||
base-cs)
|
base-cs)
|
||||||
|
|
||||||
|
|
||||||
;;; {string, char, char-set, char predicate} -> char-set
|
;;; {string, char, char-set} -> char-set
|
||||||
|
|
||||||
(define (x->char-set x)
|
(define (x->char-set x)
|
||||||
(cond ((char-set? x) x)
|
(cond ((char-set? x) x)
|
||||||
|
|
Loading…
Reference in New Issue