gforth/stuff.fs - diff

Return to stuff.fs CVS log

Up to [gforth] / gforth

version 1.22, 2002/09/14 08:20:20	version 1.23, 2002/12/26 19:16:17
Line 66 AUser CSP	Line 66 AUser CSP
\G equivalent to @code{] literal}	\G equivalent to @code{] literal}
] postpone literal ;	] postpone literal ;

	[ifundef] in-dictionary?
: in-dictionary? ( x -- f )	: in-dictionary? ( x -- f )
forthstart dictionary-end within ;	forthstart dictionary-end within ;
	[endif]

: in-return-stack? ( addr -- f )	: in-return-stack? ( addr -- f )
rp0 @ swap - [ forthstart 6 cells + ]L @ u< ;	rp0 @ swap - [ forthstart 6 cells + ]L @ u< ;