[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.16 and 1.17

version 1.16, Mon Dec 1 21:15:03 1997 UTC version 1.17, Wed Oct 14 22:23:12 1998 UTC
Line 201 
Line 201 
 : search-prefix  ( addr1 len1 -- addr2 len2 )  : search-prefix  ( addr1 len1 -- addr2 len2 )
     0 vp dup @ 1- cells over +      0 vp dup @ 1- cells over +
     DO  I 2@ <>      DO  I 2@ <>
         IF  I cell+ @ @ swap  search-voc  THEN          IF  I cell+ @ wordlist-id @ swap  search-voc  THEN
         [ -1 cells ] Literal +LOOP          [ -1 cells ] Literal +LOOP
     prefix-string ;      prefix-string ;
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help