io.streams.c: help-lint

diff --git a/core/bootstrap/primitives.factor b/core/bootstrap/primitives.factor
index 2d823f981020e483af5d819024499e91929b030c..264b6dd9c3d7faf538ea6a4e7327c697075ad4e8 100755 (executable)
--- a/core/bootstrap/primitives.factor
+++ b/core/bootstrap/primitives.factor
@@ -440,8 +440,8 @@ tuple
     { "(fopen)" "io.streams.c" "primitive_fopen" (( path mode -- alien )) }
     { "fclose" "io.streams.c" "primitive_fclose" (( alien -- )) }
     { "fflush" "io.streams.c" "primitive_fflush" (( alien -- )) }
-    { "fgetc" "io.streams.c" "primitive_fgetc" (( alien -- ch/f )) }
-    { "fputc" "io.streams.c" "primitive_fputc" (( ch alien -- )) }
+    { "fgetc" "io.streams.c" "primitive_fgetc" (( alien -- byte/f )) }
+    { "fputc" "io.streams.c" "primitive_fputc" (( byte alien -- )) }
     { "fread-unsafe" "io.streams.c" "primitive_fread" (( n buf alien -- count )) }
     { "fseek" "io.streams.c" "primitive_fseek" (( alien offset whence -- )) }
     { "ftell" "io.streams.c" "primitive_ftell" (( alien -- n )) }

diff --git a/core/io/streams/c/c-docs.factor b/core/io/streams/c/c-docs.factor
index 7208c7bdc8c85cee33995e83d8a6b48b11d2f9d6..63fabc1f90a3ce749815de6db4d86f72de4d733b 100644 (file)
--- a/core/io/streams/c/c-docs.factor
+++ b/core/io/streams/c/c-docs.factor
@@ -62,7 +62,7 @@ HELP: fgetc ( alien -- byte/f )
 { $description "Reads a single byte from a C FILE* handle, and outputs " { $link f } " on end of file." } 
 { $errors "Throws an error if the input operation failed." } ;
 
-HELP: fputc ( byte alien -- ch/f )
+HELP: fputc ( byte alien -- )
 { $values { "byte" "an integer from 0 to 255" } { "alien" "a C FILE* handle" } }
 { $description "Writes a single byte to a C FILE* handle." }
 { $errors "Throws an error if the output operation failed." } ;