[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

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

version 1.57, Fri Sep 8 08:55:52 2000 UTC version 1.58, Sat Sep 9 20:32:58 2000 UTC
Line 519 
Line 519 
 : sourceline# ( -- n )  1 ;  : sourceline# ( -- n )  1 ;
 [THEN]  [THEN]
   
   Variable #fill-bytes
   \G number of bytes read via (read-line) by the last refill
   
 : refill ( -- flag ) \ core-ext,block-ext,file-ext  : refill ( -- flag ) \ core-ext,block-ext,file-ext
     \G Attempt to fill the input buffer from the input source.  When      \G Attempt to fill the input buffer from the input source.  When
     \G the input source is the user input device, attempt to receive      \G the input source is the user input device, attempt to receive
Line 539 
Line 542 
     tib /line      tib /line
     [ has? file [IF] ]      [ has? file [IF] ]
         loadfile @ ?dup          loadfile @ ?dup
         IF    read-line throw          IF    (read-line) #fill-bytes ! throw
         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.57  
changed lines
  Added in v.1.58
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help