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

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