--- gforth/kernel/io.fs 2012/07/27 23:28:10 1.31 +++ gforth/kernel/io.fs 2012/08/09 23:58:53 1.32 @@ -24,7 +24,7 @@ require ./basics.fs has? os [IF] 0 Value infile-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 outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?