From 6ff145b50b2b56d610a16cc047c311d3f3552bf4 Mon Sep 17 00:00:00 2001
From: Lieuwe Rooijakkers <lieuwerooijakkers@gmail.com>
Date: Thu, 14 Nov 2019 18:01:38 +0100
Subject: 'null?' builtin

---
 Compiler.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Compiler.hs')

diff --git a/Compiler.hs b/Compiler.hs
index a5a1f3d..913d568 100644
--- a/Compiler.hs
+++ b/Compiler.hs
@@ -83,7 +83,7 @@ newtype CM a = CM {unCM :: StateT CompState (Except String) a}
 builtinMap :: Map.Map Name ()
 builtinMap = Map.fromList [
     ("+", ()), ("-", ()), ("<=", ()), ("=", ()), ("print", ()),
-    ("list", ()), ("car", ()), ("cdr", ()),
+    ("list", ()), ("car", ()), ("cdr", ()), ("null?", ()),
     ("sys-open-file", ()), ("sys-close-file", ()), ("sys-get-char", ()), ("sys-put-string", ())]
 
 bbId :: BB -> Int
-- 
cgit v1.2.3-54-g00ecf