Loading kernel/comp.fs +7 −3 Original line number Original line Diff line number Diff line Loading @@ -609,9 +609,13 @@ Create vttemplate dup vttemplate vt= IF vttemplate @ ! vttemplate off EXIT THEN dup vttemplate vt= IF vttemplate @ ! vttemplate off EXIT THEN REPEAT drop (vt,) ; REPEAT drop (vt,) ; : make-latest ( xt -- ) : make-latest ( nt -- ) \G make @i{xt} the latest definition, which can be manipulated \G Make @i{nt} the latest definition, which can be manipulated by \G by @{immediate} and @code{set-*} operations \G @{immediate} and @code{set-*} operations. If you have used \G (especially compiled) the word referred to by nt already, do \G not change the behaviour of the word (only its implementation), \G otherwise you may get a surprising mix of behaviours that is \G not consistent between Gforth engines and versions. vt, dup last ! lastnt ! ; vt, dup last ! lastnt ! ; : ?vt ( -- ) : ?vt ( -- ) Loading Loading
kernel/comp.fs +7 −3 Original line number Original line Diff line number Diff line Loading @@ -609,9 +609,13 @@ Create vttemplate dup vttemplate vt= IF vttemplate @ ! vttemplate off EXIT THEN dup vttemplate vt= IF vttemplate @ ! vttemplate off EXIT THEN REPEAT drop (vt,) ; REPEAT drop (vt,) ; : make-latest ( xt -- ) : make-latest ( nt -- ) \G make @i{xt} the latest definition, which can be manipulated \G Make @i{nt} the latest definition, which can be manipulated by \G by @{immediate} and @code{set-*} operations \G @{immediate} and @code{set-*} operations. If you have used \G (especially compiled) the word referred to by nt already, do \G not change the behaviour of the word (only its implementation), \G otherwise you may get a surprising mix of behaviours that is \G not consistent between Gforth engines and versions. vt, dup last ! lastnt ! ; vt, dup last ! lastnt ! ; : ?vt ( -- ) : ?vt ( -- ) Loading