From fe76e2ad510ec9e4df965a9620f8d36778222c08 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 28 Jul 2017 23:46:38 +0200
Subject: Add globals on A-stack

---
 Sil/Parse.icl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Sil/Parse.icl')

diff --git a/Sil/Parse.icl b/Sil/Parse.icl
index cdd117f..7325826 100644
--- a/Sil/Parse.icl
+++ b/Sil/Parse.icl
@@ -121,7 +121,11 @@ parse :: ([Token] -> MaybeError Error Program)
 parse = fst o runParser program
 
 program :: Parser Token Program
-program = (\fs -> {p_funs=fs}) <$> some function <* eof
+program =
+	many initialisation >>= \globss ->
+	some function >>= \fs ->
+	eof $>
+	{p_globals=flatten globss, p_funs=fs}
 
 function :: Parser Token Function
 function =
-- 
cgit v1.2.3