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

formatting & whitespace

This commit is contained in:
Jesse D. McDonald 2020-11-05 02:02:06 -06:00
parent af34583b5f
commit 0ee566ea39
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
startup.4th
View File

@ -2285,10 +2285,13 @@ ARGV ARGC 1+ CELLS+ CONSTANT ENVIRON
LOCAL-NAMES BEGIN ?DUP WHILE DUP LOCAL>LINK @ SWAP FREE REPEAT LOCAL-NAMES BEGIN ?DUP WHILE DUP LOCAL>LINK @ SWAP FREE REPEAT
TO LOCAL-NAMES ▪ POSTPONE UNLOCALS ; TO LOCAL-NAMES ▪ POSTPONE UNLOCALS ;
\ Define a threaded word which also displays its name and the data stack when called
>> UTILITY >> UTILITY
: (TRACE) ( xt -- ) >NAME TYPE SPACE .S ; : (TRACE) ( xt -- ) >NAME TYPE SPACE .S ;
>> FORTH >> FORTH
\ Define a threaded word which also displays its name and the data stack when called
: :TRACE ( "<spaces?>name" -- ) : LATEST POSTPONE LITERAL POSTPONE (TRACE) ; : :TRACE ( "<spaces?>name" -- ) : LATEST POSTPONE LITERAL POSTPONE (TRACE) ;
\ Return TRUE if the given address is the execution token of a word in \ Return TRUE if the given address is the execution token of a word in