Fixed cons, set-car! and set-cdr!

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

diff --git a/scheme.4th b/scheme.4th
index 9d86461..ae88b4b 100644 (file)
--- a/scheme.4th
+++ b/scheme.4th
@@ -762,6 +762,7 @@ parse-idx-stack parse-idx-sp !
     then
 
     eof? if
+        inc-parse-idx
         bold fg blue ." Moriturus te saluto." reset-term ."  ok" cr
         quit
     then