* +! ( val addr -- ) add val to the value found in addr simulate: : +! TUCK @ + SWAP ! ;
+!
( val addr -- )
simulate: : +! TUCK @ + SWAP ! ;
FORTH/ANS core (dpANS.6.1.0130) ordinary primitive