Test subtraction
This commit is contained in:
parent
0fd4666235
commit
9063858c78
|
|
@ -11,7 +11,8 @@
|
|||
(define listings
|
||||
(list
|
||||
(Program '() (Prim '+ (list (Int 1) (Int 2))))
|
||||
(Program '() (Prim '+ (list (Prim '- (list (Int 1))) (Int 2))))))
|
||||
(Program '() (Prim '+ (list (Prim '- (list (Int 1))) (Int 2))))
|
||||
(Program '() (Prim '- (list (Int 1) (Int 2))))))
|
||||
|
||||
(define (evaluate-bril-main bril-program)
|
||||
(cadr (interp-bril bril-program "main")))
|
||||
|
|
|
|||
Loading…
Reference in New Issue