Diff for /gforth/kernel/input.fs between versions 1.19 and 1.20

version 1.19, 2006/10/08 11:30:56 version 1.20, 2006/10/11 19:18:52
Line 216  has? file [IF] Line 216  has? file [IF]
     2drop      2drop
 [ [THEN] ]  [ [THEN] ]
     -1 loadline ! #tib ! tib !      -1 loadline ! #tib ! tib !
     r> catch pop-file rethrow ;      r> catch pop-file throw ;
   
 : execute-parsing ( ... addr u xt -- ... ) \ gforth  : execute-parsing ( ... addr u xt -- ... ) \ gforth
 \G Make @i{addr u} the current input source, execute @i{xt @code{(  \G Make @i{addr u} the current input source, execute @i{xt @code{(
Line 262  defer line-end-hook ( -- ) \ gforth Line 262  defer line-end-hook ( -- ) \ gforth
     loadfilename 2!  loadfile !      loadfilename 2!  loadfile !
     r> catch      r> catch
     loadfile @ close-file swap 2dup or      loadfile @ close-file swap 2dup or
     pop-file  drop rethrow throw ;      pop-file  drop throw throw ;
   
 : execute-parsing-file ( i*x fileid xt -- j*x ) \ gforth  : execute-parsing-file ( i*x fileid xt -- j*x ) \ gforth
 \G Make @i{fileid} the current input source, execute @i{xt @code{( i*x  \G Make @i{fileid} the current input source, execute @i{xt @code{( i*x

Removed from v.1.19  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>