fix tiny typo in arith.rkt
in racket guide
This commit is contained in:
parent
2e48112cdb
commit
fbb6ae98b9
|
@ -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"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user