[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.55 and 1.56

version 1.55, Fri Aug 18 08:56:33 2000 UTC version 1.56, Wed Sep 6 20:30:07 2000 UTC
Line 594 
Line 594 
     \G @code{0} and make the string @i{c-addr u} the input source      \G @code{0} and make the string @i{c-addr u} the input source
     \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.
       loadfilename# @ >r
       1 loadfilename# ! \ "\evaluated string/"
     push-file #tib ! >tib !      push-file #tib ! >tib !
     >in off      >in off
     [ has? file [IF] ]      [ has? file [IF] ]
         blk off loadfile off -1 loadline !          blk off loadfile off -1 loadline !
         [ [THEN] ]          [ [THEN] ]
     ['] interpret catch      ['] interpret catch
     pop-file throw ;      pop-file
       r> loadfilename# !
       throw ;
   
 \ \ Quit                                                13feb93py  \ \ Quit                                                13feb93py
   
Line 707 
Line 711 
       >stderr        >stderr
   [ [THEN] ]    [ [THEN] ]
   sourceline# IF    sourceline# IF
       source >in @ sourceline# 0 0 .error-frame        source >in @ sourceline# sourcefilename .error-frame
   THEN    THEN
   error-stack @ 0 ?DO    error-stack @ 0 ?DO
     -1 error-stack +!      -1 error-stack +!
Line 777 
Line 781 
 [ has? file [IF] ]  [ has? file [IF] ]
     process-args      process-args
     loadline off      loadline off
       loadfilename# off
 [ [THEN] ]  [ [THEN] ]
     bootmessage      bootmessage
     quit ;      quit ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help