X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=ast.scm;h=2ffad975f66f1ec4fbca3f32f095e484658ed726;hp=05716e40814287b15a67cfe7a87b1339734f13b0;hb=43f8c4631ae0a3163c780e7511a96f6b05054544;hpb=76d1cd698cc577eec3a259a6937b4ada324c1bfd

diff --git a/ast.scm b/ast.scm
index 05716e4..2ffad97 100644
--- a/ast.scm
+++ b/ast.scm
@@ -21,3 +21,12 @@
 
 (define (var? x)
   (and (not (list? x)) (symbol? x)))
+
+(define (builtin? x)
+  (case x
+    ('+ #t)
+    ('- #t)
+    ('* #t)
+    ('! #t)
+    ('bool->int #t)
+    (else #f)))