fix negativity, more

5 years ago · 5fc143c123
parent 9c168fbd98
commit 5fc143c123
1 changed files with 1 additions and 1 deletions
--- 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)