[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.58 and 1.59

version 1.58, Sat Sep 9 20:32:58 2000 UTC version 1.59, Sun Sep 10 19:50:33 2000 UTC
Line 542 
Line 542 
     tib /line      tib /line
     [ has? file [IF] ]      [ has? file [IF] ]
         loadfile @ ?dup          loadfile @ ?dup
         IF    (read-line) #fill-bytes ! throw          IF    (read-line) throw #fill-bytes !
         ELSE          ELSE
             [ [THEN] ]              [ [THEN] ]
         sourceline# 0< IF 2drop false EXIT THEN          sourceline# 0< IF 2drop false EXIT THEN

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help