gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.39, 2002/01/26 16:31:40	version 1.41, 2002/09/14 11:18:57
Line 483 c-extender !	Line 483 c-extender !
( end!) 2drop false EXIT THEN	( end!) 2drop false EXIT THEN
THEN	THEN
\ jump over to extender, if any 26jan97jaw	\ jump over to extender, if any 26jan97jaw
2 pick <>	xt>threaded 2 pick <>
WHILE 2 cells +	WHILE 2 cells +
REPEAT	REPEAT
nip cell+ perform	nip cell+ perform
Line 676 Defer discode ( addr u -- ) \ gforth	Line 676 Defer discode ( addr u -- ) \ gforth
if \ normal or immediate word	if \ normal or immediate word
swap xt-see (.immediate)	swap xt-see (.immediate)
else	else
r@ ['] compile-only-error =	r@ ['] ticking-compile-only-error =
if \ compile-only word	if \ compile-only word
swap xt-see (.immediate) ." compile-only"	swap xt-see (.immediate) ." compile-only"
else \ interpret/compile word	else \ interpret/compile word