Stacks cleared on error.

[forth.jl.git] / src / forth.jl

diff --git a/src/forth.jl b/src/forth.jl
index bba6a98..fba2375 100644 (file)
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -1020,6 +1020,8 @@ function run(;initialize=true)
 
             mem[STATE] = 0
             mem[NUMTIB] = 0
+            reg.PSP = mem[PSP0]
+            reg.RSP = mem[RSP0]
             reg.IP = QUIT + 1
             jmp = NEXT
         end