Sujet : Re: Back & Forth - Co-routines
De : dxforth (at) *nospam* gmail.com (dxf)
Groupes : comp.lang.forthDate : 31. Jan 2025, 08:33:17
Autres entêtes
Organisation : i2pn2 (i2pn.org)
Message-ID : <49736c0ec0e34ca5d67f4e0d6e8cbe2a080e38ab@i2pn2.org>
References : 1
User-Agent : Mozilla Thunderbird
On 31/01/2025 4:42 am, Hans Bezemer wrote:
The lot of you have contributed to this episode - by discussing the previous episode on local variables.
I thank you for your comments - and decided it was worth its own episode: https://youtu.be/FH4tWf9vPrA
More than worth! ;-)
Thanks Hans!
Not sure if previously mentioned but here's another version of LOCAL
: ;: >r ;
: LOCAL ( x adr -- )
r> -rot dup @ over 2>r ! ;: 2r> ! ;
variable A variable B 8 a ! 7 b !
: divide ( a b -- ) b local a local
a @ b @ / . cr ;
15 3 divide a ? b ?