1 --- gsl-0.3f/err/stream.c.glibc21 Thu Mar 11 21:38:54 1999
2 +++ gsl-0.3f/err/stream.c Thu Mar 11 21:40:35 1999
5 #include <gsl_message.h>
7 -FILE * gsl_stream = stderr ;
8 +FILE * gsl_stream = NULL;
9 gsl_stream_handler_t * gsl_stream_handler = NULL;
14 gsl_set_stream (FILE * new_stream)
16 - FILE * previous_stream = gsl_stream;
17 + FILE * previous_stream;
18 + if (gsl_stream == NULL) gsl_stream = stderr;
19 + previous_stream = gsl_stream;
20 gsl_stream = new_stream;
21 return previous_stream;