Diff for /gforth/kernel/files.fs between versions 1.21 and 1.24

version 1.21, 2003/01/22 10:59:54 version 1.24, 2006/12/31 13:39:18
Line 1 Line 1
 \ File specifiers                                       11jun93jaw  \ File specifiers                                       11jun93jaw
   
 \ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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.21  
changed lines
  Added in v.1.24


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