store-plus-plus:forth_usual — ordinary primitive
FORTH
!++ ( addr x -- addr' )(
)
Store the value _x_ into _addr_, and increment the address by one cell.
: !++ ( addr x -- addr' ) OVER ! CELL+ ;