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.
\
\ 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