From a3c2420909c41eecbd52c1792bbfb823a49ad04f Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Thu, 14 Nov 2019 11:44:38 +0100
Subject: Equality operator

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

(limited to 'Compiler.hs')

diff --git a/Compiler.hs b/Compiler.hs
index 69b2fd8..c8771b9 100644
--- a/Compiler.hs
+++ b/Compiler.hs
@@ -74,7 +74,7 @@ newtype CM a = CM {unCM :: StateT CompState (Except String) a}
 -- TODO: extra info like number of arguments, dunno, might be useful
 builtinMap :: Map.Map Name ()
 builtinMap = Map.fromList [
-    ("+", ()), ("-", ()), ("<=", ()), ("print", ()),
+    ("+", ()), ("-", ()), ("<=", ()), ("=", ()), ("print", ()),
     ("list", ()), ("car", ()), ("cdr", ())]
 
 bbId :: BB -> Int
-- 
cgit v1.2.3-54-g00ecf