[gforth] / gforth / kernel / files.fs  

gforth: gforth/kernel/files.fs

Diff for /gforth/kernel/files.fs between version 1.12 and 1.13

version 1.12, Sun Sep 10 19:50:33 2000 UTC version 1.13, Tue Sep 12 19:20:06 2000 UTC
Line 37 
Line 37 
 \ include-file                                         07apr93py  \ include-file                                         07apr93py
   
 : push-file  ( -- )  r>  : push-file  ( -- )  r>
       #fill-bytes @ >r
     loadline @ >r      loadline @ >r
     loadfile @ >r      loadfile @ >r
     blk @      >r      blk @      >r
Line 64 
Line 65 
   r> tibstack !    r> tibstack !
   r> blk      !    r> blk      !
   r> loadfile !    r> loadfile !
   r> loadline !  >r ;    r> loadline    !
     r> #fill-bytes !  >r ;
   
 : read-loop ( i*x -- j*x )  : read-loop ( i*x -- j*x )
   BEGIN  refill  WHILE  interpret  REPEAT ;    BEGIN  refill  WHILE  interpret  REPEAT ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help