From: Tim Vaughan <tgvaughan@gmail.com>
Date: Tue, 26 Apr 2016 21:05:46 +0000 (+1200)
Subject: Stacks cleared on error.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=commitdiff_plain;h=990c32e23baef033051587cfdfe2aef3e18b888a

Stacks cleared on error.
---

diff --git a/src/forth.jl b/src/forth.jl
index bba6a98..fba2375 100644
--- 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