Diff for /gforth/kernel/files.fs between versions 1.22 and 1.23

version 1.22, 2003/03/09 15:17:05 version 1.23, 2006/02/05 17:54:39
Line 58  has? new-input 0= [IF] Line 58  has? new-input 0= [IF]
   
 : pop-file   ( throw-code -- throw-code )  : pop-file   ( throw-code -- throw-code )
   dup IF    dup IF
          source >in @ sourceline# sourcefilename >error        input-error-data >error
   THEN    THEN
   r>    r>
   r> >in         !    r> >in         !

Removed from v.1.22  
changed lines
  Added in v.1.23


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