nybble
/
jumpforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tweak prompt format

This commit is contained in:
Jesse D. McDonald 2020-10-20 22:03:17 -05:00
parent 1a0fb71dd2
commit 53c76a2e6a
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
startup.4th
View File

@ -580,9 +580,9 @@ CREATE CURRENT-SOURCE-ID -1 ,
\ LATEST always refers to the innermost enclosing definition. \ LATEST always refers to the innermost enclosing definition.
\ \
\ Example: \ Example:
\ OK> : TIMES 0 DO DUP EXECUTE LOOP DROP ; \ > : TIMES 0 DO DUP EXECUTE LOOP DROP ;
\ OK> : GREETINGS { "Hello" TYPE EOL } 3 TIMES ; \ > : GREETINGS { "Hello" TYPE EOL } 3 TIMES ;
\ OK> GREETINGS \ > GREETINGS
\ Hello \ Hello
\ Hello \ Hello
\ Hello \ Hello
@ -1077,7 +1077,7 @@ HIDE TERMINAL-BUFFER
REPEAT ; REPEAT ;
DEFER SHOW-PROMPT 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 \ 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 \ Empty the return stack, make stdin the input source, and enter interpretation state
@ -1086,12 +1086,13 @@ DEFER SHOW-PROMPT
0 CURRENT-SOURCE-ID ! 0 CURRENT-SOURCE-ID !
FALSE STATE ! FALSE STATE !
BEGIN BEGIN
SHOW-PROMPT
REFILL 0= IF REFILL 0= IF
EOL BYE EOL BYE
THEN THEN
INTERPRET INTERPRET
STATE @ 0= IF STATE @ 0= IF
SHOW-PROMPT "OK\n" TYPE
THEN THEN
AGAIN ; AGAIN ;
@ -1337,7 +1338,7 @@ HIDE NONAME-LITERAL?
HIDE UNTHREAD HIDE UNTHREAD
: BANNER "JumpForth version " TYPE VERSION . ", by Jesse McDonald\nOK> " TYPE ; : BANNER "JumpForth version " TYPE VERSION . ", by Jesse McDonald\n" TYPE ;
BANNER BANNER
QUIT QUIT