Sujet : Re: Back & Forth - Co-routines
De : minforth (at) *nospam* gmx.net (minforth)
Groupes : comp.lang.forthDate : 06. Feb 2025, 18:46:40
Autres entêtes
Organisation : novaBBS
Message-ID : <c80f9545c637804e9eb61ee9831597bf@www.novabbs.com>
References : 1 2 3 4 5 6 7 8 9
User-Agent : Rocksolid Light
I don't think so. This is what happens now:
MinForth 3.6 (32 bit)
# : n+ ( n -- xt ) {: n :} [: n + ;] ; ok
# 5 n+ constant 5+ ok
# 3 5+ execute . 8 ok
# 7 5+ execute . 12 ok
#
I toyed with the idea of "passing" the man-or-boy test
but did not pursue it last year due to health problems. :-(
At least writing to upvalues works:
# : m+ {: m :} <: inc 1 +to m ;> inc inc m . ; ok
# 2 m+ 4 ok
#