shithub: sl

Info  •  Files  •  Log  •  Branches

read: use the same pointer to the stream

--- a/iostream.c

+++ b/iostream.c

@@ -116,10 +116,9 @@

 	if(nargs > 1)

 		argcount(nargs, 1);

 	value_t a = nargs == 0 ? symbol_value(FL_instrsym) : args[0];

-	USED(toiostream(a));

+	ios_t *s = toiostream(a);

 	value_t v = fl_read_sexpr(a);

-	a = nargs == 0 ? symbol_value(FL_instrsym) : args[0];

-	return ios_eof(toiostream(a)) ? FL_eof : v;

+	return ios_eof(s) ? FL_eof : v;

 }

 BUILTIN("io-getc", io_getc)