io.errors: Add words to print to error-stream as easily as to
output-stream.modern-harvey2
parent
3c8da3722d
commit
6939b2ca5f
|
@ -0,0 +1 @@
|
|||
Doug Coleman
|
|
@ -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
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue