blob: 89a998e75531a439c97c5103dcc2e5663d3ec233 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(define priority-op
{ symbol --> number }
not -> 1
uminus -> 7)
(define pp-binop
{ symbol --> string }
plus -> "+"
mult -> "*")
(define parenthesis
{ string --> string }
X -> (@s "(" X ")"))
(define isdigit
{ string --> boolean }
C -> (let CN (string->n C)
(and (>= CN (string->n "0")) (<= CN (string->n "9")))))
|