[gforth] / gforth / hash.fs  

gforth: gforth/hash.fs

Diff for /gforth/hash.fs between version 1.13 and 1.14

version 1.13, Thu May 9 18:12:59 1996 UTC version 1.14, Mon May 13 16:36:58 1996 UTC
Line 59 
Line 59 
 : lastlink! ( addr link -- )  : lastlink! ( addr link -- )
   BEGIN  dup @ dup  WHILE  nip  REPEAT  drop ! ;    BEGIN  dup @ dup  WHILE  nip  REPEAT  drop ! ;
   
 : (reveal ( addr voc -- )  : (reveal ( nfa wid -- )
     dup wordlist-extend @ 0<      dup wordlist-extend @ 0<
     IF      IF
         2drop EXIT          2drop EXIT
Line 74 
Line 74 
     THEN      THEN
     revealed on ;      revealed on ;
   
 : hash-reveal ( -- )  : hash-reveal ( nfa wid -- )
     (reveal) last?      2dup (reveal) (reveal ;
     IF  
         current @ (reveal  
     THEN ;  
   
 : addall  ( -- )  : addall  ( -- )
     voclink      voclink

Generate output suitable for use with a patch program
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help