Fix stderr

core/io/streams/c/c-docs.factor

@@ -14,9 +14,10 @@ ARTICLE: "io.streams.c" "ANSI C streams"
 { $subsection fclose }
 { $subsection fgetc }
 { $subsection fread }
-"Two standard file handles:"
-{ $subsection stdin }
-{ $subsection stdout } ;
+"The three standard file handles:"
+{ $subsection stdin-handle }
+{ $subsection stdout-handle }
+{ $subsection stderr-handle } ;
 
 ABOUT: "io.streams.c"
 
@@ -64,10 +65,14 @@ HELP: fread ( n alien -- str/f )
 { $description "Reads a sequence of characters from a C FILE* handle, and outputs " { $link f } " on end of file." }
 { $errors "Throws an error if the input operation failed." } ;
 
-HELP: stdin
+HELP: stdin-handle
 { $values { "in" "a C FILE* handle" } }
 { $description "Outputs the console standard input file handle." } ;
 
-HELP: stdout
+HELP: stdout-handle
 { $values { "out" "a C FILE* handle" } }
 { $description "Outputs the console standard output file handle." } ;
+
+HELP: stderr-handle
+{ $values { "out" "a C FILE* handle" } }
+{ $description "Outputs the console standard error file handle." } ;

core/io/streams/c/c.factor

@@ -56,13 +56,13 @@ M: c-reader stream-close
 
 M: object init-io ;
 
-: stdin 11 getenv ;
-: stdout 12 getenv ;
-: stderr 38 getenv ;
+: stdin-handle 11 getenv ;
+: stdout-handle 12 getenv ;
+: stderr-handle 38 getenv ;
 
 M: object init-stdio
-    stdin stdout <duplex-c-stream> stdio set-global
-    stderr <c-writer> stderr set-global ;
+    stdin-handle stdout-handle <duplex-c-stream> stdio set-global
+    stderr-handle <c-writer> <plain-writer> stderr set-global ;
 
 M: object io-multiplex (sleep) ;