Anonymous user
Arithmetic evaluation: Difference between revisions
m
fix concatenation
m (fix concatenation) |
|||
Line 4,417:
["(" 'OPEN]
[")" 'CLOSE]
[(~: (~+ numeric) (~? (~: #\. (~* numeric))))
(token-NUM (string->number lexeme))]))
|