diff --git a/beautiful-racket-demo/jsonic-demo-2/tokenizer.rkt b/beautiful-racket-demo/jsonic-demo-2/tokenizer.rkt index 4d281ca..dd6277f 100644 --- a/beautiful-racket-demo/jsonic-demo-2/tokenizer.rkt +++ b/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))) diff --git a/beautiful-racket-demo/jsonic-demo-3/tokenizer.rkt b/beautiful-racket-demo/jsonic-demo-3/tokenizer.rkt index bd4e405..7e6698e 100644 --- a/beautiful-racket-demo/jsonic-demo-3/tokenizer.rkt +++ b/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)))