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

version 1.8, 2000/05/20 14:25:42 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

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


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