X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=7c1a31606045a96f092d71327a86c91ddea1e440;hb=167e0b9dcc4de39b9479abcfcc80cc039023e1a7;hp=08b4bcd070b0cc912eb283b72479a7da33f9a8db;hpb=4d9d90cad9c4280d93d6bf67f2083ef9d3c8235f;p=scheme.forth.jl.git

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