Diff for /gforth/kernel/files.fs between versions 1.7 and 1.9

version 1.7, 1999/03/23 20:24:24 version 1.9, 2000/08/17 12:46:58
Line 18 Line 18
 \ along with this program; if not, write to the Free Software  \ along with this program; if not, write to the Free Software
 \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
 4 Constant w/o ( -- ntype ) \ file      w-o  4 Constant w/o ( -- fam ) \ file        w-o
 2 Constant r/w ( -- ntype ) \ file      r-w  2 Constant r/w ( -- fam ) \ file        r-w
 0 Constant r/o ( -- ntype ) \ file      r-o  0 Constant r/o ( -- fam ) \ file        r-o
   
 : bin ( ntype1 -- ntype2 ) \ file  : bin ( fam1 -- fam2 ) \ file
     1 or ;      1 or ;
   
 \ BIN WRITE-LINE                                        11jun93jaw  \ BIN WRITE-LINE                                        11jun93jaw
Line 32 Line 32
     ?dup IF      ?dup IF
         r> drop EXIT          r> drop EXIT
     THEN      THEN
     #lf r> emit-file ;      newline r> write-file ;
   
 \ include-file                                         07apr93py  \ include-file                                         07apr93py
   

Removed from v.1.7  
changed lines
  Added in v.1.9


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