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

fix MARK so it works when interpreting, not just when compiling

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

2
startup.4th
View File

@ -1302,7 +1302,7 @@ DEFER REFILL
\ Debugging aid; shows a label and the contents of the stacks at runtime \ Debugging aid; shows a label and the contents of the stacks at runtime
: MARK ( "<spaces?>name" ) IMMEDIATE : MARK ( "<spaces?>name" ) IMMEDIATE
PARSE-NAME POSTPONE SLITERAL POSTPONE (MARK) ; PARSE-NAME STATE @ IF POSTPONE SLITERAL POSTPONE (MARK) ELSE (MARK) THEN ;
>>FORTH >>FORTH