From d3a9d62b5866771489cdc9f4e0fced3e7845eb9c Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Thu, 14 Nov 2019 16:58:24 +0100
Subject: File I/O

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

(limited to 'Compiler.hs')

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