('+ "_add")
('- "_sub")
('* "_mul")
+ ('! "_not")
+ ('= "_eq")
('bool->int "_bool2int")
- (else (error #f "fill this out"))))
+ ('print "_print")
+ (else (error #f "don't know this builtin"))))
(define (builtin-args e)
(case e
('+ '(x y))
('- '(x y))
('* '(x y))
+ ('! '(x))
+ ('= '(x y))
('bool->int '(x))
- (else (error #f "fill this out"))))
+ ('print '(x))
+ (else (error #f "don't know this builtin"))))
(define (add-builtin-lambda e)
(let* [(label (builtin-name e))