From 1f571fc8de03647780ff88400c0498411369f0c5 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 10 Mar 2020 14:20:32 -0700 Subject: [PATCH] unnecessary predicate --- beautiful-racket-demo/jsonic-demo-2/tokenizer.rkt | 3 +-- beautiful-racket-demo/jsonic-demo-3/tokenizer.rkt | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) 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)))