From: Luke Lau <luke_lau@icloud.com>
Date: Sat, 27 Jul 2019 23:04:36 +0000 (+0100)
Subject: Fill in missing builtin lambda info
X-Git-Url: https://git.lukelau.me/?p=scheme.git;a=commitdiff_plain;h=d6c23652adf6bf2e9494cdedfed853c288b16f3f

Fill in missing builtin lambda info
---

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