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.40, 2009/12/31 15:32:35
Line 1	Line 1
\ Hashed dictionaries 15jul94py	\ Hashed dictionaries 15jul94py

\ Copyright (C) 1995,1998,2000,2003,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,2000,2003,2006,2007,2009 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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]