[gforth] / gforth / kernel / paths.fs  

gforth: gforth/kernel/paths.fs

Diff for /gforth/kernel/paths.fs between version 1.19 and 1.20

version 1.19, Sat Sep 14 08:20:21 2002 UTC version 1.20, Wed Dec 25 15:45:15 2002 UTC
Line 217 
Line 217 
         WHILE  5 pick 5 pick check-path          WHILE  5 pick 5 pick check-path
         0= IF >r 2drop 2drop r> ofile count 0 EXIT ELSE drop THEN          0= IF >r 2drop 2drop r> ofile count 0 EXIT ELSE drop THEN
   REPEAT    REPEAT
         2drop 2drop 2drop -&38          2drop 2drop 2drop -&37
   THEN ;    THEN ;
   
 : open-fpath-file ( addr1 u1 -- wfileid addr2 u2 0 | ior ) \ gforth  : open-fpath-file ( addr1 u1 -- wfileid addr2 u2 0 | ior ) \ gforth


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

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help