comment fix: x->char-set does not accept char predicates

This commit is contained in:
mainzelm 2005-10-18 15:02:46 +00:00
parent 5f3c53746f
commit abd81132dc
1 changed files with 1 additions and 1 deletions

View File

@ -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)