name-flags-store:header — ordinary primitive
EXTENSIONS
NAME-FLAGS!
( nfa-flags nfa -- )( | ) ; |
; |
set the nfa-flags of nfa given. Note that in the fig-style the nfa-flags would include the nfa-count in the lower bits - therefore this should only set bits that had been previously retrieved with NAME-FLAGS@
: IMMEDIATE LAST @ NAME-FLAGS@ IMMEDIATE-MASK OR LAST @ NAME-FLAGS! ;