Re: Back & Forth - Co-routines

On 21/03/2025 11:38 am, dxf wrote:

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!

The run-time code can be reduced further by relocating >BODY ...

: (local) ( x adr -- )  r> -rot dup @ over 2>r ! ;: 2r> ! ;

: LOCAL ( x "name" -- )
  '  >body  postpone literal  postpone (local) ; immediate