X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=codegen.scm;h=4e05bcf797b31d175a9629aac4b75868bbd9c72e;hp=517cc110e545d9fe3490b0eeaf5c5d35b2c3d375;hb=d6c23652adf6bf2e9494cdedfed853c288b16f3f;hpb=c3ee0f7639a02371a2d01b39ddca91506c4791c3

diff --git a/codegen.scm b/codegen.scm
index 517cc11..4e05bcf 100644
--- a/codegen.scm
+++ b/codegen.scm
@@ -358,15 +358,21 @@
       ('+ "_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))