From e65ef99a062db2a1d2b62554ecdc95605a7dd8ee Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 15 Jul 2019 08:25:48 -0700 Subject: [PATCH] touchup --- beautiful-racket-demo/precalc-demo/main.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/beautiful-racket-demo/precalc-demo/main.rkt b/beautiful-racket-demo/precalc-demo/main.rkt index 67c9c48..cf5fb37 100644 --- a/beautiful-racket-demo/precalc-demo/main.rkt +++ b/beautiful-racket-demo/precalc-demo/main.rkt @@ -8,7 +8,7 @@ (define-lex-abbrev reserved-toks (:or "fun" "(" ")" "=" "+" "*" "/" "-" ",")) -(define-lex-abbrev digits (char-set "0123456789")) +(define-lex-abbrev digit (char-set "0123456789")) (define tokenize-1 (lexer @@ -16,7 +16,7 @@ [(:or (from/stop-before "#" "\n") (from/to "/*" "*/")) (token 'COMMENT #:skip? #t)] [reserved-toks lexeme] - [(:+ digits) (token 'INT (string->number lexeme))] + [(:+ digit) (token 'INT (string->number lexeme))] [(:+ alphabetic) (token 'ID (string->symbol lexeme))])) (define-macro top #'#%module-begin)