Fixed stack hygiene bug.

[scheme.forth.jl.git] / scheme.4th

diff --git a/scheme.4th b/scheme.4th
index 08b4bcd..7c1a316 100644 (file)
--- 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