Re: Back & Forth - Co-routines

On 20/03/2025 11:07 pm, Hans Bezemer wrote:

...
But the major problem is that ' doesn't return an XT, but just a relative address. Without applying >BODY I can't retrieve the original address. So, in order to make this work, I have to redefine it to accommodate those restrictions:
 
: (local) ( x xt -- ) r> -rot >body dup @ over 2>r ! ;: 2r> ! ;
 
Back ported to Gforth - it works!
...

Slightly smaller (for me) and not less portable.  Thanks!