From 53c76a2e6ae07df4479e987b431f6a574f713edd Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Tue, 20 Oct 2020 22:03:17 -0500
Subject: [PATCH] tweak prompt format

---
 startup.4th | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/startup.4th b/startup.4th
index 9a41f2c..066252f 100644
--- a/startup.4th
+++ b/startup.4th
@@ -580,9 +580,9 @@ CREATE CURRENT-SOURCE-ID -1 ,
 \ LATEST always refers to the innermost enclosing definition.
 \
 \ Example:
-\   OK> : TIMES 0 DO DUP EXECUTE LOOP DROP ;
-\   OK> : GREETINGS { "Hello" TYPE EOL } 3 TIMES ;
-\   OK> GREETINGS
+\   > : TIMES 0 DO DUP EXECUTE LOOP DROP ;
+\   > : GREETINGS { "Hello" TYPE EOL } 3 TIMES ;
+\   > GREETINGS
 \   Hello
 \   Hello
 \   Hello
@@ -1077,7 +1077,7 @@ HIDE TERMINAL-BUFFER
    REPEAT ;
 
 DEFER SHOW-PROMPT
-{ "OK> " TYPE } IS SHOW-PROMPT
+{ "> " TYPE } IS SHOW-PROMPT
 
 \ Redefine QUIT as a non-deferred word; update deferred references to point here
 \ Empty the return stack, make stdin the input source, and enter interpretation state
@@ -1086,12 +1086,13 @@ DEFER SHOW-PROMPT
    0 CURRENT-SOURCE-ID !
    FALSE STATE !
    BEGIN
+      SHOW-PROMPT
       REFILL 0= IF
          EOL BYE
       THEN
       INTERPRET
       STATE @ 0= IF
-         SHOW-PROMPT
+         "OK\n" TYPE
       THEN
    AGAIN ;
 
@@ -1337,7 +1338,7 @@ HIDE NONAME-LITERAL?
 
 HIDE UNTHREAD
 
-: BANNER "JumpForth version " TYPE VERSION . ", by Jesse McDonald\nOK> " TYPE ;
+: BANNER "JumpForth version " TYPE VERSION . ", by Jesse McDonald\n" TYPE ;
 
 BANNER
 QUIT