added char-whitespace?

src/libcore.ss

@@ -696,6 +696,13 @@ reference-implementation:
                        (err c2)))))
            (err c1))])))
 
+(primitive-set! 'char-whitespace?
+  (lambda (c)
+    (cond 
+      [(memq c '(#\space #\tab #\newline #\return)) #t]
+      [(char? c) #f]
+      [else
+       (error 'char-whitespace? "~s is not a character" c)])))
 
 (primitive-set! 'cons (lambda (x y) (cons x y)))
 

src/libtokenizer.ss

@@ -3,10 +3,6 @@
 ;;; 9.0: graph marks/refs
 ;;;
 (let ()
-  (define char-whitespace?
-    (lambda (c)
-      (or ($char= #\space c)
-          (memq ($char->fixnum c) '(9 10 11 12 13))))) 
   (define delimiter?
     (lambda (c)
       (or (char-whitespace? c)

src/makefile.ss

@@ -88,7 +88,7 @@
     time-it 
     posix-fork fork waitpid env environ
     pretty-print
-    even? odd? member
+    even? odd? member char-whitespace?
     ))
 
 (define system-primitives