gforth/hash.fs - diff

Return to hash.fs CVS log

Up to [gforth] / gforth

version 1.38, 2009/12/06 23:00:03	version 1.39, 2009/12/27 01:00:52
Line 172 const Create (hashsearch-map)	Line 172 const Create (hashsearch-map)
\ Hash-Find 01jan93py	\ Hash-Find 01jan93py
has? cross 0=	has? cross 0=
[IF]	[IF]
	: hash-wordlist ( wid -- )
	hashsearch-map swap wordlist-map ! ;
: make-hash	: make-hash
hashsearch-map forth-wordlist wordlist-map !	forth-wordlist hash-wordlist
	environment-wordlist hash-wordlist
	['] Root >body hash-wordlist
addall ;	addall ;
make-hash \ Baumsuche ist installiert.	make-hash \ Baumsuche ist installiert.
[ELSE]	[ELSE]