projects
/
scheme.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fill in missing builtin lambda info
[scheme.git]
/
codegen.scm
diff --git
a/codegen.scm
b/codegen.scm
index 517cc110e545d9fe3490b0eeaf5c5d35b2c3d375..4e05bcf797b31d175a9629aac4b75868bbd9c72e 100644
(file)
--- a/
codegen.scm
+++ b/
codegen.scm
@@
-358,15
+358,21
@@
('+ "_add")
('- "_sub")
('* "_mul")
('+ "_add")
('- "_sub")
('* "_mul")
+ ('! "_not")
+ ('= "_eq")
('bool->int "_bool2int")
('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))
(define (builtin-args e)
(case e
('+ '(x y))
('- '(x y))
('* '(x y))
+ ('! '(x))
+ ('= '(x y))
('bool->int '(x))
('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))
(define (add-builtin-lambda e)
(let* [(label (builtin-name e))