[gforth] / gforth / ds2texi.fs  

gforth: gforth/ds2texi.fs

Diff for /gforth/ds2texi.fs between version 1.20 and 1.21

version 1.20, Tue Dec 8 22:02:39 1998 UTC version 1.21, Sun Dec 13 23:29:58 1998 UTC
Line 63 
Line 63 
 : skip-prefix ( c-addr1 u1 -- c-addr2 u2 )  : skip-prefix ( c-addr1 u1 -- c-addr2 u2 )
     2dup 2 min s" --" compare 0=      2dup 2 min s" --" compare 0=
     IF      IF
         [char] - skip [char] - scan [char] - skip          [char] - skip [char] - scan 1 /string
     THEN ;      THEN ;
   
 : replace-_ ( c-addr u -- )  : replace-_ ( c-addr u -- )

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help