From 4f3db25a0bc60bb8ca9c2b0fdba2ea4ca4ffe16e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 4 Jul 2019 11:45:06 -0700 Subject: [PATCH] adjust numbers --- beautiful-racket-demo/precalc-demo/main.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/beautiful-racket-demo/precalc-demo/main.rkt b/beautiful-racket-demo/precalc-demo/main.rkt index f090e47..581392b 100644 --- a/beautiful-racket-demo/precalc-demo/main.rkt +++ b/beautiful-racket-demo/precalc-demo/main.rkt @@ -16,11 +16,9 @@ [(:or (from/stop-before "#" "\n") (from/to "/*" "*/")) (token 'COMMENT #:skip? #t)] [reserved-toks lexeme] - [(:seq (:? "-") (:+ (:or alphabetic) digits)) - (let ([maybe-num (string->number lexeme)]) - (if maybe-num - (token 'INT maybe-num) - (token 'ID (string->symbol lexeme))))])) + [(:seq (:? "-") (:+ digits)) (token 'INT (string->number lexeme))] + [(:+ (:- (:or alphabetic digits) reserved-toks)) + (token 'ID (string->symbol lexeme))])) (define-macro top #'#%module-begin)