renaming c_stream_error to io_error

native/io.c

@@ -24,7 +24,7 @@ void init_c_io(void)
 	userenv[OUT_ENV] = tag_object(alien(stdout));
 }
 
-void c_stream_error(void)
+void io_error(void)
 {
 	CELL error = tag_object(from_c_string(strerror(errno)));
 	general_error(ERROR_IO,error);
@@ -39,7 +39,7 @@ void primitive_fopen(void)
 	path = unbox_c_string();
 	file = fopen(path,mode);
 	if(file == NULL)
-		c_stream_error();
+		io_error();
 	box_alien(file);
 }
 
@@ -58,7 +58,7 @@ void primitive_fgets(void)
 		if(feof(file))
 			dpush(F);
 		else
-			c_stream_error();
+			io_error();
 	}
 	else
 		dpush(tag_object(from_c_string(line)));
@@ -74,7 +74,7 @@ void primitive_fwrite(void)
 	if(fwrite(to_c_string_unchecked(text),1,
 		untag_fixnum_fast(text->length),
 		file) == 0)
-		c_stream_error();
+		io_error();
 }
 
 void primitive_fflush(void)

native/io.h

@@ -1,6 +1,6 @@
 int factor_errno(void);
 void init_c_io(void);
-void c_stream_error(void);
+void io_error(void);
 void primitive_fopen(void);
 void primitive_fwrite(void);
 void primitive_fflush(void);

native/unix/file.c

@@ -59,7 +59,7 @@ void primitive_cwd(void)
 	char wd[MAXPATHLEN];
 	maybe_garbage_collection();
 	if(getcwd(wd,MAXPATHLEN) < 0)
-		c_stream_error();
+		io_error();
 	box_c_string(wd);
 }
 

native/unix/signal.c

@@ -81,5 +81,5 @@ void primitive_call_profiling(F_WORD *word)
 	}
 
 	if(setitimer(ITIMER_PROF,&prof_timer,NULL) < 0)
-		c_stream_error();
+		io_error();
 }