From 990c32e23baef033051587cfdfe2aef3e18b888a Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Wed, 27 Apr 2016 09:05:46 +1200
Subject: [PATCH] Stacks cleared on error.

---
 src/forth.jl | 2 ++
 1 file changed, 2 insertions(+)

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
-- 
2.20.1