gforth/kernel/io.fs - diff

Return to io.fs CVS log

Up to [gforth] / gforth / kernel

version 1.31, 2012/07/27 23:28:10	version 1.32, 2012/08/09 23:58:53
Line 24 require ./basics.fs	Line 24 require ./basics.fs
has? os [IF]	has? os [IF]
0 Value infile-id ( -- file-id ) \ gforth	0 Value infile-id ( -- file-id ) \ gforth
0 Value outfile-id ( -- file-id ) \ gforth	0 Value outfile-id ( -- file-id ) \ gforth
0 Value errfile-id ( -- file-id ) \ gforth	0 Value debug-fid ( -- file-id ) \ gforth

: (type) ( c-addr u -- ) \ gforth	: (type) ( c-addr u -- ) \ gforth
outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?	outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?