io.errors: Add words to print to error-stream as easily as to

output-stream.
modern-harvey2
Doug Coleman 2017-09-16 16:46:47 -05:00
parent 3c8da3722d
commit 6939b2ca5f
3 changed files with 14 additions and 0 deletions

View File

@ -0,0 +1 @@
Doug Coleman

View File

@ -0,0 +1,11 @@
! Copyright (C) 2017 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: io namespaces ;
IN: io.errors
: ebl ( -- ) error-stream get stream-bl ;
: enl ( -- ) error-stream get stream-nl ; inline
: ewrite ( str -- ) error-stream get stream-write ; inline
: ewrite1 ( elt -- ) error-stream get stream-write1 ; inline
: eprint ( str -- ) error-stream get stream-print ; inline
: eflush ( -- ) error-stream get stream-flush ; inline

View File

@ -43,8 +43,10 @@ SYMBOL: error-stream
: read-until ( seps -- seq sep/f ) input-stream get stream-read-until ; inline
: tell-input ( -- n ) input-stream get stream-tell ; inline
: tell-output ( -- n ) output-stream get stream-tell ; inline
: tell-error ( -- n ) error-stream get stream-tell ; inline
: seek-input ( n seek-type -- ) input-stream get stream-seek ; inline
: seek-output ( n seek-type -- ) output-stream get stream-seek ; inline
: seek-error ( n seek-type -- ) error-stream get stream-seek ; inline
: write1 ( elt -- ) output-stream get stream-write1 ; inline
: write ( seq -- ) output-stream get stream-write ; inline