Diff for /gforth/hash.fs between versions 1.2 and 1.3

version 1.2, 1994/08/25 15:25:27 version 1.3, 1994/09/12 19:00:31
Line 32  Variable HashPointer Line 32  Variable HashPointer
 : hash-find ( addr len wordlist -- nfa / false )  : hash-find ( addr len wordlist -- nfa / false )
     $C + @ >r      $C + @ >r
     2dup hash cells r> + @ (hashfind) ;      2dup hash cells r> + @ (hashfind) ;
 \  BEGIN  dup  WHILE  
 \         2@ >r >r dup r@ cell+ c@ $1F and =  
 \         IF  2dup r@ cell+ char+ capscomp 0=  
 \            IF  2drop r> rdrop  EXIT  THEN  THEN  
 \        rdrop r>  
 \  REPEAT nip nip ;  
   
 \ hash vocabularies                                    16jul94py  \ hash vocabularies                                    16jul94py
   

Removed from v.1.2  
changed lines
  Added in v.1.3


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