unnecessary predicate

beautiful-racket-demo/jsonic-demo-2/tokenizer.rkt

@@ -5,11 +5,10 @@
   (require rackunit))
 
 (define (jsonic-token? x)
-  (or (eof-object? x) (string? x) (token-struct? x)))
+  (or (eof-object? x) (token-struct? x)))
 
 (module+ test
   (check-true (jsonic-token? eof))
-  (check-true (jsonic-token? "a string"))
   (check-true (jsonic-token? (token 'A-TOKEN-STRUCT "hi")))
   (check-false (jsonic-token? 42)))
 

beautiful-racket-demo/jsonic-demo-3/tokenizer.rkt

@@ -5,11 +5,10 @@
   (require rackunit))
 
 (define (token? x)
-  (or (eof-object? x) (string? x) (token-struct? x)))
+  (or (eof-object? x) (token-struct? x)))
 
 (module+ test
   (check-true (token? eof))
-  (check-true (token? "a string"))
   (check-true (token? (token 'A-TOKEN-STRUCT "hi")))
   (check-false (token? 42)))