Return to files.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.26, 2007/12/31 19:02:25 | version 1.28, 2012/12/31 15:25:19 |
---|---|
Line 1 | Line 1 |
\ File specifiers 11jun93jaw | \ File specifiers 11jun93jaw |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,2000,2003,2006,2007,2012 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
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 |