* +! ( val addr -- ) add val to the value found in addr simulate: : +! TUCK @ + SWAP ! ;
+!
( val addr -- )
simulate: : +! TUCK @ + SWAP ! ;
core ordinary primitive