[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.91 and 1.92

version 1.91, Mon Jan 20 19:17:59 2003 UTC version 1.92, Wed Jan 22 10:59:54 2003 UTC
Line 696 
Line 696 
     \G and input buffer. Interpret. When the parse area is empty,      \G and input buffer. Interpret. When the parse area is empty,
     \G restore the input source specification.      \G restore the input source specification.
 [ has? file [IF] ]  [ has? file [IF] ]
     loadfilename 2@ 2>r      s" *evaluated string*" loadfilename>r
     s" *evaluated string*" loadfilename 2!  
 [ [THEN] ]  [ [THEN] ]
     push-file #tib ! >tib !      push-file #tib ! >tib !
     >in off      >in off
Line 707 
Line 706 
     ['] interpret catch      ['] interpret catch
     pop-file      pop-file
 [ has? file [IF] ]  [ has? file [IF] ]
     2r> loadfilename 2!      r>loadfilename
 [ [THEN] ]  [ [THEN] ]
     throw ;      throw ;
 [THEN]  [THEN]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help