Diff for /gforth/hash.fs between versions 1.10 and 1.11

version 1.10, 1995/11/07 18:06:43 version 1.11, 1996/01/07 17:22:10
Line 56  Variable HashIndex Line 56  Variable HashIndex
   BEGIN  dup @ dup  WHILE  nip  REPEAT  drop ! ;    BEGIN  dup @ dup  WHILE  nip  REPEAT  drop ! ;
   
 : (reveal ( addr voc -- )  [ 3 cells ] Literal + dup @ 0< IF  2drop EXIT  THEN  : (reveal ( addr voc -- )  [ 3 cells ] Literal + dup @ 0< IF  2drop EXIT  THEN
   @ over cell+ count $1F and Hash xor cells >r    @ over name>string Hash xor cells >r
   HashPointer 2 Cells $400 NewFix    HashPointer 2 Cells $400 NewFix
   tuck cell+ ! r> HashTable @ + insRule @    tuck cell+ ! r> HashTable @ + insRule @
   IF  dup @ 2 pick ! !  ELSE  lastlink!  THEN  revealed on ;    IF  dup @ 2 pick ! !  ELSE  lastlink!  THEN  revealed on ;

Removed from v.1.10  
changed lines
  Added in v.1.11


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