gforth: gforth/kernel/files.fs

-version 1.2, Sun Aug 31 19:32:30 1997 UTC
+version 1.3, Sun Apr 12 21:49:29 1998 UTC
  Line 37
  Line 37
  Line 37
  \ include-file                                         07apr93py
  : push-file  ( -- )  r>
-   sourceline# >r  loadfile @ >r
+     loadline @ >r
-   blk @ >r  tibstack @ >r  >tib @ >r  #tib @ >r
+     loadfile @ >r
-   >tib @ tibstack @ = IF  r@ tibstack +!  THEN
+     blk @      >r
-   tibstack @ >tib ! >in @ >r  >r ;
+     tibstack @ >r
+     >tib @     >r
+     #tib @     >r
+     >in @      >r  >r
+     >tib @ tibstack @ = IF  #tib @ tibstack +!  THEN
+     tibstack @ >tib ! ;
  : pop-file   ( throw-code -- throw-code )
    dup IF
- Line 53
+ Line 58
  Line 53
  Line 58
           -1 cells +LOOP
    THEN
    r>
-   r> >in !  r> #tib !  r> >tib !  r> tibstack !  r> blk !
+   r> >in      !
-   r> loadfile ! r> loadline !  >r ;
+   r> #tib     !
+   r> >tib     !
+   r> tibstack !
+   r> blk      !
+   r> loadfile !
+   r> loadline !  >r ;
  : read-loop ( i*x -- j*x )
    BEGIN  refill  WHILE  interpret  REPEAT ;

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.2
 


changed lines


 
Added in v.1.3
 Legend:



Removed from v.1.2
 


changed lines


 
Added in v.1.3
-Removed from v.1.2
+Added in v.1.3