Re: "Back & Forth" - Local variables

On 08-01-2025 17:27, albert@spenarnc.xs4all.nl wrote:
( my CO variant, using the return address)
: LOCAL R> SWAP DUP >R @ >R EXECUTE R> R> ! ;
VARIABLE A
VARIABLE B
\ I'm paranoid :)
8 a !
7 b !
: divide
     A LOCAL
     B LOCAL
     B ! A !  A @ B @ /
     . CR
;
15 3 divide a ? b ?
\ it doesn't mean they're not out to get you
Wow! This works! Can't say how solid it is.. but still!
Hans Bezemer