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)
|
||||
|
||||
|
||||
;;; {string, char, char-set, char predicate} -> char-set
|
||||
;;; {string, char, char-set} -> char-set
|
||||
|
||||
(define (x->char-set x)
|
||||
(cond ((char-set? x) x)
|
||||
|
|
Loading…
Reference in New Issue