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.39, 2002/01/26 16:31:40
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