Test subtraction

This commit is contained in:
Enrico Lumetti 2022-08-10 23:48:23 +02:00
parent 0fd4666235
commit 9063858c78
1 changed files with 2 additions and 1 deletions

View File

@ -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")))