gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.19, 1998/05/13 16:47:23	version 1.21, 1999/02/03 00:10:22
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 616 IS discode	Line 616 IS discode
then	then
rdrop drop ;	rdrop drop ;

: see ( "name" -- ) \ tools	: see ( "<spaces>name" -- ) \ tools
	\G Locate @var{name} using the current search order. Display the
	\G definition of @var{name}. Since this is achieved by decompiling
	\G the definition, the formatting is mechanised and some source
	\G information (comments, interpreted sequences within definitions
	\G etc.) is lost.
name find-name dup 0=	name find-name dup 0=
IF	IF
drop -&13 bounce	drop -&13 bounce