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