Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-27 21:58:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add "immediate"

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 23:34:56 +09:00
parent a63cbd0b69
commit d1cfab7667
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
core.fs
View file

@ -382,4 +382,15 @@ c ; i ,
\ Set immediate-bit of ';' \ Set immediate-bit of ';'
l @ C + # { ? k @ k @ + | } $ l @ C + # { ? k @ k @ + | } $
: immediate-bit [ ' L , k @ k @ + , ] ;
: length-mask [ ' L , k O k 0 + , ] ;
\ ( "name" -- )
: set-immediate
W F C + # { ? immediate-bit | } $
;
\ Set immediate-bit of single-line comment word \
\ so that we can write comments in compile-mode.
set-immediate \
Q Q