Add "immediate"

This commit is contained in:
Koichi Nakamura 2020-12-31 23:34:56 +09:00
parent a63cbd0b69
commit d1cfab7667

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