Eval main rather than Unwinding it

2023-12-04 13:06:50 -07:00
parent 7ef3bf1082
commit a3a38cb256
1 changed files with 2 additions and 2 deletions
--- 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