gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.18, 1997/07/06 14:29:34	version 1.20, 1998/11/27 21:13:43
Line 395 VARIABLE C-Pass	Line 395 VARIABLE C-Pass

: c-does> \ end of create part	: c-does> \ end of create part
Display? IF S" DOES> " Com# .string THEN	Display? IF S" DOES> " Com# .string THEN
Cell+ cell+ ;	maxaligned /does-handler + ;

: c-abort"	: c-abort"
count 2dup + aligned -rot	count 2dup + aligned -rot
Line 518 IS discode	Line 518 IS discode

: seecode ( xt -- )	: seecode ( xt -- )
dup s" Code" .defname	dup s" Code" .defname
>body discode	threading-method
	if
	>code-address
	then
	discode
." end-code" cr ;	." end-code" cr ;
: seevar ( xt -- )	: seevar ( xt -- )
s" Variable" .defname cr ;	s" Variable" .defname cr ;