show the data stack at the prompt if non-empty

2020-11-07 11:03:08 -06:00 · 2020-11-07 11:03:08 -06:00 · a143fdf7a4
parent 11b5b3e7ed
commit a143fdf7a4
1 changed files with 1 additions and 1 deletions
--- a/startup.4th
+++ b/startup.4th
@ -2169,7 +2169,7 @@ STDIN TTY? CONSTANT INTERACTIVE?
      REFILL 0= IF BYE THEN
      INTERPRET
      [ INTERACTIVE? ] [IF]
-         STATE @ 0= IF "OK\n" TYPE THEN
+         STATE @ 0= IF DEPTH IF .S THEN "OK\n" TYPE THEN
      [THEN]
   AGAIN ;