gforth/kernel/basics.fs - diff

Return to basics.fs CVS log

Up to [gforth] / gforth / kernel

version 1.40, 2003/08/17 22:55:58	version 1.41, 2003/08/18 19:29:15
Line 62 hex	Line 62 hex

\ UNUSED 17may93jaw	\ UNUSED 17may93jaw

has? ec	has? ec [IF]
[IF]
unlock ram-dictionary borders nip lock	unlock ram-dictionary borders nip lock
AConstant dictionary-end	AConstant dictionary-end
[ELSE]	[ELSE]
Line 87 AConstant dictionary-end	Line 86 AConstant dictionary-end

has? ec [IF]	has? ec [IF]
: in-dictionary? ( x -- f )	: in-dictionary? ( x -- f )
dictionary-end < ;	dictionary-end u< ;
[ELSE]	[ELSE]
: in-dictionary? ( x -- f )	: in-dictionary? ( x -- f )
forthstart dictionary-end within ;	forthstart dictionary-end within ;