From ed32c6288c14d540b5c6270858bf2f8202d579e0 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 25 Dec 2018 00:34:39 +0100
Subject: Better use of monads

---
 Sjit/Compile.dcl | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'Sjit/Compile.dcl')

diff --git a/Sjit/Compile.dcl b/Sjit/Compile.dcl
index 166b5c4..7cb74e3 100644
--- a/Sjit/Compile.dcl
+++ b/Sjit/Compile.dcl
@@ -23,12 +23,13 @@ from Sjit.Syntax import :: Function
 :: Program :== {!Instr}
 
 :: CompileState =
-	{ vars   :: !Map String Int
-	, funs   :: !Map String Int
-	, sp     :: !Int
-	, pc     :: !Int
-	, blocks :: ![!Program!]
-	, jitst  :: !JITState
+	{ vars      :: !Map String Int
+	, funs      :: !Map String Int
+	, sp        :: !Int
+	, pc        :: !Int
+	, blocks    :: ![!Program!]
+	, new_block :: ![!Instr!]
+	, jitst     :: !JITState
 	}
 
 :: JITState =
-- 
cgit v1.2.3