(chibi strings) functions taking predicates now accept char-sets as well.

lib/chibi/strings.scm

@@ -5,10 +5,10 @@
 (define (string-null? str)
   (equal? str ""))
 
-;; TODO: support character sets
 (define (make-char-predicate x)
   (cond ((procedure? x) x)
         ((char? x) (lambda (ch) (eq? ch x)))
+	((char-set? x) (lambda (ch) (char-set-contains? x ch)))
         (else (error "invalid character predicate" x))))
 
 (define (complement pred) (lambda (x) (not (pred x))))

lib/chibi/strings.sld

@@ -11,5 +11,5 @@
    string-find string-find-right string-skip string-skip-right
    string-fold string-fold-right string-map string-for-each
    string-contains make-string-searcher)
-  (import (scheme) (chibi ast))
+  (import (scheme) (chibi ast) (chibi char-set base))
   (include "strings.scm"))