gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.20, 1998/11/27 21:13:43	version 1.21, 1999/02/03 00:10:22
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