Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing string streams build on linux.

Browse source
This commit is contained in:
Alex Shinn 2015-06-03 21:50:07 +09:00
parent f0ee48fc4c
commit 6d6adc0cbf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -1419,7 +1419,7 @@ sexp sexp_get_output_string_op (sexp ctx, sexp self, sexp_sint_t n, sexp port) {
sexp_assert_type(ctx, sexp_oportp, SEXP_OPORT, port); sexp_assert_type(ctx, sexp_oportp, SEXP_OPORT, port);
if (sexp_port_cookie(port) != SEXP_STRING_OPORT) if (sexp_port_cookie(port) != SEXP_STRING_OPORT)
return sexp_xtype_exception(ctx, self, "not an output string port", port); return sexp_xtype_exception(ctx, self, "not an output string port", port);
if (!sexp_openp(port)) if (!sexp_port_openp(port))
return sexp_xtype_exception(ctx, self, "output port is closed", port); return sexp_xtype_exception(ctx, self, "output port is closed", port);
fflush(sexp_port_stream(port)); fflush(sexp_port_stream(port));
return sexp_c_string(ctx, sexp_port_buf(port), sexp_port_size(port)); return sexp_c_string(ctx, sexp_port_buf(port), sexp_port_size(port));