gforth/look.fs - diff

Return to look.fs CVS log

Up to [gforth] / gforth

version 1.7, 1997/03/27 13:31:02	version 1.8, 1997/07/06 14:29:33
Line 28	Line 28

decimal	decimal

: PrimStart ['] true >name ;

\ look 17may93jaw	\ look 17may93jaw

	\ rename to discover!!!

: (look) ( xt startlfa -- lfa flag )	: (look) ( xt startlfa -- lfa flag )
false swap	false swap
BEGIN @ dup	BEGIN @ dup
Line 41 decimal	Line 41 decimal
drop nip	drop nip
dup 0<> ;	dup 0<> ;


	\ !!! nicht optimal!
	[IFUNDEF] look
	[IFUNDEF] dictionary-end has-rom [ELSE] false [THEN]
	[IF]

	: look ( cfa -- lfa flag )
	forth-wordlist @ (look) ;

	[ELSE]

	: PrimStart ['] true >name ;

: look ( cfa -- lfa flag )	: look ( cfa -- lfa flag )
dup dictionary-end forthstart within	dup dictionary-end forthstart within
IF	IF
Line 49 decimal	Line 62 decimal
>name dup ??? <>	>name dup ??? <>
THEN ;	THEN ;

	[THEN]
	[THEN]