6.1.0130 +! plus-store CORE

( n | u a-addr -- )

Add n | u to the single-cell number at a-addr.

See:

Testing:

T{  0 1ST !        ->   }T
T{  1 1ST +!       ->   }T
T{    1ST @        -> 1 }T
T{ -1 1ST +! 1ST @ -> 0 }T

ContributeContributions

EricBlakeavatar of EricBlake [411] reference implementationSuggested reference implementation2025-09-02 11:51:03

: +! ( n|u a-addr -- )
  TUCK @ + SWAP ! ;
Reply New Version