Re: Back & Forth - Co-routines

On 21/03/2025 11:27 pm, Hans Bezemer wrote:

...
Nice test - I bet it wouldn't be too hard to implement at least part of the Forth-200x implementation ;-)
 
Sometin' like define {:
1. Parse a word;
2. If not :} then create a (local);
3. Repeat.
 
Ok, this is horrible code, it needs the VALUES in reverse, but it works:
 
: :} ;
: {: begin ' dup ['] :} <> while >body postpone literal postpone (local) repeat drop ; immediate
 
: test {: b a :} a b / ;

I'd just call that LOCAL| and be done.  Can't say I ever found the syntax an
annoyance.  I appreciate it might not be ideal for doing Windows API calls...