Sujet : Re: Stack vs stackless operation
De : no.email (at) *nospam* nospam.invalid (Paul Rubin)
Groupes : comp.lang.forthDate : 26. Feb 2025, 20:44:15
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <875xkwo5io.fsf@nightsong.com>
References : 1 2 3 4 5
User-Agent : Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux)
anton@mips.complang.tuwien.ac.at (Anton Ertl) writes:
: :=: ( addr1 addr2 -- )
OVER @ >R DUP @ ROT ! R> SWAP ! ;
: ex ( a1 a2 -- ) 2>r 2r@ @ swap @ r> ! r> ! ;
looks a little simpler.
The effort of implementing special native words for this though are
probably better spent on locals.
: ex {: x y -- :} x @ y @ x ! y ! ;