Diff for /gforth/hash.fs between versions 1.23 and 1.24

version 1.23, 1998/12/19 13:43:17 version 1.24, 2000/04/02 21:48:54
Line 97  Defer hash-alloc ( addr -- addr ) Line 97  Defer hash-alloc ( addr -- addr )
     voclink      voclink
     BEGIN  @ dup WHILE      BEGIN  @ dup WHILE
            dup 0 wordlist-link -             dup 0 wordlist-link -
            dup wordlist-map @ hashsearch-map =              dup wordlist-map @ reveal-method @ ['] hash-reveal = 
            IF  inithash ELSE drop THEN             IF  inithash ELSE drop THEN
     REPEAT  drop ;      REPEAT  drop ;
   

Removed from v.1.23  
changed lines
  Added in v.1.24


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