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

Adding type check to get-output-string.

Browse source
This commit is contained in:
Alex Shinn 2011-11-14 11:53:28 +09:00
parent a3a570042b
commit dfe3440e91
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sexp.c
View file

@ -1221,7 +1221,9 @@ sexp sexp_make_output_string_port_op (sexp ctx, sexp self, sexp_sint_t n) {
} }
sexp sexp_get_output_string_op (sexp ctx, sexp self, sexp_sint_t n, sexp port) { sexp sexp_get_output_string_op (sexp ctx, sexp self, sexp_sint_t n, sexp port) {
sexp cookie = sexp_port_cookie(port); sexp cookie;
sexp_assert_type(ctx, sexp_oportp, SEXP_OPORT, port);
cookie = sexp_port_cookie(port);
fflush(sexp_port_stream(port)); fflush(sexp_port_stream(port));
return sexp_substring(ctx, return sexp_substring(ctx,
sexp_stream_buf(cookie), sexp_stream_buf(cookie),