(create)
creates the vocabulary header without XT and data field (PF)
Stackeffects
( -- )R( -- )
Definition
: (create)
here bl word count dup 0>
(?branch) PFA_DOCREATE4 ; ( -- here addr' n )
dup (literal) $ff00 or (s",$2c,") get-current dup e@ (unnamed) e! exit
PFA_DOCREATE4:
drop drop drop
;