fix tiny typo in arith.rkt in racket guide

This commit is contained in:
Phil Nguyen 2014-11-19 16:53:30 -05:00 committed by Sam Tobin-Hochstadt
parent 2e48112cdb
commit fbb6ae98b9

View File

@ -40,9 +40,9 @@
(define op (to-syntax (string->symbol op-str) (define op (to-syntax (string->symbol op-str)
(+ delta a-len) op-str)) (+ delta a-len) op-str))
(to-syntax (list op a b) delta s)] (to-syntax (list op a b) delta s)]
[else (to-syntax (or (string->number s) [_ (to-syntax (or (string->number s)
(string->symbol s)) (string->symbol s))
delta s)])) delta s)]))
(unless expr-match (unless expr-match
(raise-read-error "bad arithmetic syntax" (raise-read-error "bad arithmetic syntax"