gforth/search.fs - diff

Return to search.fs CVS log

Up to [gforth] / gforth

version 1.22, 2003/01/20 17:07:38	version 1.23, 2003/02/06 16:49:17
Line 149 Vocabulary Root ( -- ) \ gforth	Line 149 Vocabulary Root ( -- ) \ gforth
\G order (for Gforth, this is the word list @code{Root}).	\G order (for Gforth, this is the word list @code{Root}).
1 vp! Root also ;	1 vp! Root also ;

	: update-image-order ( -- )
	\ save search order here, let vp point there
	here vp over vp @ 1+ cells
	dup allot move
	to vp ;

: init-vp ( -- )	: init-vp ( -- )
$10 TO maxvp	vp @ $10 max to maxvp
maxvp 1+ cells allocate throw TO vp	maxvp 1+ cells allocate throw
Only Forth also definitions ;	vp over vp @ 1+ cells move
	TO vp ;

:noname	:noname
init-vp DEFERS 'cold ;	init-vp DEFERS 'cold ;
IS 'cold	IS 'cold

init-vp	here 0 , to vp

	init-vp Only Forth also definitions

\ set initial search order 14may93py	\ set initial search order 14may93py