msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

Eval main rather than Unwinding it

Browse Source
This commit is contained in:
crumbtoo
2023-12-04 13:06:50 -07:00
parent 7ef3bf1082
commit a3a38cb256
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GM.hs
View File

@@ -391,8 +391,8 @@ advanceCode = gmCode %~ drop 1
compile :: Program -> GmState compile :: Program -> GmState
compile p = GmState c [] [] h g sts compile p = GmState c [] [] h g sts
where where
-- find the entry point and start unwinding -- find the entry point and evaluate it
c = [PushGlobal "main", Unwind] c = [PushGlobal "main", Eval]
(h,g) = buildInitialHeap p (h,g) = buildInitialHeap p
sts = def sts = def