gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.38, 2002/01/04 20:31:54	version 1.40, 2002/04/01 15:34:34
Line 584 Defer discode ( addr u -- ) \ gforth	Line 584 Defer discode ( addr u -- ) \ gforth

: seecode ( xt -- )	: seecode ( xt -- )
dup s" Code" .defname	dup s" Code" .defname
threading-method	>code-address
if
>code-address
then
dup in-dictionary? \ user-defined code word?	dup in-dictionary? \ user-defined code word?
if	if
dup next-head	dup next-head
Line 679 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