[BACK]Return to files.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/files.fs between versions 1.26 and 1.27

version 1.26, 2007/12/31 19:02:25 version 1.27, 2012/04/06 17:27:54
Line 26 Line 26
   
 \ BIN WRITE-LINE                                        11jun93jaw  \ BIN WRITE-LINE                                        11jun93jaw
   
 : write-line ( c-addr u fileid -- ior ) \ file  : write-line ( c-addr u wfileid -- ior ) \ file
     dup >r write-file      dup >r write-file
     ?dup IF      ?dup IF
         r> drop EXIT          r> drop EXIT
Removed from v.1.26  
changed lines
  Added in v.1.27

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