gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.37, 2001/04/08 13:48:12	version 1.40, 2002/04/01 15:34:34
Line 271 VARIABLE C-Pass	Line 271 VARIABLE C-Pass
THEN ;	THEN ;

: c-call	: c-call
Display? IF dup @ body> .word bl cemit THEN cell+ ;	Display? IF ." call " dup @ body> .word bl cemit THEN cell+ ;

: .name-without ( addr -- addr )	: .name-without ( addr -- addr )
\ prints a name without () e.g. (+LOOP) or (s")	\ prints a name without () e.g. (+LOOP) or (s")
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