gforth: gforth/hash.fs

-version 1.33, Sun Mar  9 15:16:50 2003 UTC
+version 1.36, Mon Dec 31 18:40:24 2007 UTC
  Line 1
  Line 1
  Line 1
  \ Hashed dictionaries                                  15jul94py
- \ Copyright (C) 1995,1998,2000,2003 Free Software Foundation, Inc.
+ \ Copyright (C) 1995,1998,2000,2003,2006 Free Software Foundation, Inc.
  \ This file is part of Gforth.
  \ Gforth is free software; you can redistribute it and/or
  \ modify it under the terms of the GNU General Public License
- \ as published by the Free Software Foundation; either version 2
+ \ as published by the Free Software Foundation, either version 3
  \ of the License, or (at your option) any later version.
  \ This program is distributed in the hope that it will be useful,
  Line 15
  Line 15
  Line 15
  \ GNU General Public License for more details.
  \ You should have received a copy of the GNU General Public License
- \ along with this program; if not, write to the Free Software
+ \ along with this program. If not, see http://www.gnu.org/licenses/.
- \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
  [IFUNDEF] erase
  : erase ( addr len -- ) 0 fill ;
- Line 193
+ Line 192
  Line 193
  Line 192
  \  REPEAT  drop
  [ has? ec [IF] ] ." Done" cr [ [THEN] ] ;
- ' hash-cold INIT8 chained
+ :noname ( -- )
+     defers 'cold
+     hash-cold
+ ; is 'cold
  : .words  ( -- )
    base @ >r hex HashTable  Hashlen 0

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.33
 


changed lines


 
Added in v.1.36
 Legend:



Removed from v.1.33
 


changed lines


 
Added in v.1.36
-Removed from v.1.33
+Added in v.1.36