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

throw an error on get-output-string on non-string-ports (issue #621)

Browse source
This commit is contained in:
Alex Shinn 2020-03-25 17:15:06 +09:00
parent d19ee75800
commit 1795014dae
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -1708,6 +1708,8 @@ sexp sexp_get_output_string_op (sexp ctx, sexp self, sexp_sint_t n, sexp out) {
sexp_assert_type(ctx, sexp_oportp, SEXP_OPORT, out); sexp_assert_type(ctx, sexp_oportp, SEXP_OPORT, out);
if (!sexp_port_openp(out)) if (!sexp_port_openp(out))
return sexp_xtype_exception(ctx, self, "output port is closed", out); return sexp_xtype_exception(ctx, self, "output port is closed", out);
if (!sexp_pairp(sexp_port_cookie(out)))
return sexp_xtype_exception(ctx, self, "not a string output port", out);
sexp_gc_preserve3(ctx, ls, rev, tmp); sexp_gc_preserve3(ctx, ls, rev, tmp);
if (sexp_port_offset(out) > 0) { if (sexp_port_offset(out) > 0) {
tmp = sexp_c_string(ctx, sexp_port_buf(out), sexp_port_offset(out)); tmp = sexp_c_string(ctx, sexp_port_buf(out), sexp_port_offset(out));