Re: Back & Forth - Co-routines

On Thu, 6 Feb 2025 17:06:59 +0000, Anton Ertl wrote:

minforth@gmx.net (minforth) writes:

: foo
   <: bar ." xyz" ;>
 bar
;
>
I find this quite handy, since upvalues (locals within foo's
context) are accessible from within bar.

>
Do you implement proper static scoping?  I.e., does your system pass
the man-or-boy test.  What about returning xts that reference outer
locals, e.g.:
>
: n+ ( n -- xt ) {: n :} [: n + ;] ;
5 n+ constant 5+
3 5+ execute .
7 5+ execute .

As I said, I don't have proper scoping, as needed for closures
(current MinForth only captures the outer context once, so it
does not work with multiple instances)
However, does this work in gforth?
: n+ ( n -- xt ) {: n :} [: n + ;] ;
5 n+ constant 5+
10 n+ constant 10+  ( 2nd instance )
2 5+ .  ( 7 )
2 10+ .  ( 12 )
3 5+ .  ( 8 )