* ++ ( addr -- ) Increment the value at _addr_. : ++ ( addr -- ) 1 SWAP +! ;
++
( addr -- )
: ++ ( addr -- ) 1 SWAP +! ;
FORTH/BASE forth_usual ordinary primitive