fix some norm error

X-R-G-B · Jan 14, 2024 · 86b9607 · 86b9607
1 parent 26f3ac1
commit 86b9607
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/lvtrun/src/Run/Vm.hs b/lvtrun/src/Run/Vm.hs
@@ -95,10 +95,12 @@ execBrIf cEx@(CurrentExec {ceStack = stack}) =
     _ -> throw $ RuntimeError "exec brIf: bad type"
 
 execCall :: VM -> CurrentExec -> FuncIdx -> CurrentExec
-execCall vm cEx funcIdx = do
-  let newVm = execFunctionWithIdx vm funcIdx (ceStack cEx)
-  let newStack = pushResults (ceStack cEx) (vmStack newVm) (ceResults (currentExec newVm))
-  cEx { ceStack = newStack }
+execCall vm cEx funcIdx = cEx { ceStack = newStack }
+  where
+    newVm = execFunctionWithIdx vm funcIdx currentStack
+    newStack = pushResults currentStack (vmStack newVm) res
+    currentStack = ceStack cEx
+    res = ceResults (currentExec newVm)
 
 execIf :: CurrentExec -> CurrentExec
 execIf cEx@(CurrentExec {ceStack = stack}) = case stackTop stack of