gforth/look.fs - diff

Return to look.fs CVS log

Up to [gforth] / gforth

version 1.8, 1997/07/06 14:29:33	version 1.9, 1997/08/31 19:31:29
Line 44 decimal	Line 44 decimal

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

	has-rom
	[IF]
	: look
	dup [ unlock rom-dictionary area lock ]
	literal literal within
	IF
	>name dup ?? <>
	ELSE
	forth-wordlist @ (look)
	THEN ;
	[ELSE]
: look ( cfa -- lfa flag )	: look ( cfa -- lfa flag )
forth-wordlist @ (look) ;	>name dup ??? <> ;
	[THEN]

[ELSE]	[ELSE]

: PrimStart ['] true >name ;	: PrimStart ['] true >name ;

: look ( cfa -- lfa flag )	: look ( cfa -- lfa flag )
dup dictionary-end forthstart within	dup dictionary-end forthstart within
IF	IF
PrimStart (look)	PrimStart (look)
ELSE	ELSE
>name dup ??? <>	>name dup ??? <>
THEN ;	THEN ;

[THEN]	[THEN]
[THEN]	[THEN]