From a3a38cb25663874204c7cdb874f98f4a1e9df29d Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 4 Dec 2023 13:06:50 -0700
Subject: [PATCH] Eval main rather than Unwinding it

---
 src/GM.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GM.hs b/src/GM.hs
index 71d2947..c9655be 100644
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -391,8 +391,8 @@ advanceCode = gmCode %~ drop 1
 compile :: Program -> GmState
 compile p = GmState c [] [] h g sts
     where
-        -- find the entry point and start unwinding
-        c = [PushGlobal "main", Unwind]
+        -- find the entry point and evaluate it
+        c = [PushGlobal "main", Eval]
         (h,g) = buildInitialHeap p
         sts = def