From: Tim Vaughan <tgvaughan@gmail.com>
Date: Thu, 27 Oct 2016 03:46:09 +0000 (+1300)
Subject: Fixed stack hygiene bug.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;ds=sidebyside;h=167e0b9dcc4de39b9479abcfcc80cc039023e1a7;hp=4d9d90cad9c4280d93d6bf67f2083ef9d3c8235f;p=scheme.forth.jl.git

Fixed stack hygiene bug.
---

diff --git a/scheme.4th b/scheme.4th
index 08b4bcd..7c1a316 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -1481,6 +1481,7 @@ include scheme-primitives.4th
         read-console
 
         2dup EOF character-type objeq? if
+            2drop
             bold fg blue ." Moriturus te saluto." reset-term cr
             exit
         then