From 5fc143c123c443e35824e52eb495df3cff206b82 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 15 Jul 2019 08:22:53 -0700 Subject: [PATCH] fix negativity, more --- beautiful-racket-demo/precalc-demo/main.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/beautiful-racket-demo/precalc-demo/main.rkt b/beautiful-racket-demo/precalc-demo/main.rkt index 70d43df..67c9c48 100644 --- a/beautiful-racket-demo/precalc-demo/main.rkt +++ b/beautiful-racket-demo/precalc-demo/main.rkt @@ -16,7 +16,7 @@ [(:or (from/stop-before "#" "\n") (from/to "/*" "*/")) (token 'COMMENT #:skip? #t)] [reserved-toks lexeme] - [(:seq (:? "-") (:+ digits)) (token 'INT (string->number lexeme))] + [(:+ digits) (token 'INT (string->number lexeme))] [(:+ alphabetic) (token 'ID (string->symbol lexeme))])) (define-macro top #'#%module-begin)