Diff for /gforth/hash.fs between versions 1.33 and 1.34

version 1.33, 2003/03/09 15:16:50 version 1.34, 2006/05/01 09:45:56
Line 193  has? cross 0= Line 193  has? cross 0=
 \  REPEAT  drop   \  REPEAT  drop 
 [ has? ec [IF] ] ." Done" cr [ [THEN] ] ;  [ has? ec [IF] ] ." Done" cr [ [THEN] ] ;
   
 ' hash-cold INIT8 chained  :noname ( -- )
       defers 'cold
       hash-cold
   ; is 'cold
   
 : .words  ( -- )  : .words  ( -- )
   base @ >r hex HashTable  Hashlen 0    base @ >r hex HashTable  Hashlen 0

Removed from v.1.33  
changed lines
  Added in v.1.34


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>