on-store:forth_usual — ordinary primitive
FORTH
ON! ( addr -- )();p4:"on-store";
ON! ( addr -- )(
)
Store -1 at _addr_. Defined in f83 as ON. See antonym OFF!.
: ON! ( addr -- ) -1 SWAP ! ;