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

sexp_get_output_bytevector should check for errors from sexp_get_output_string

Browse source
This commit is contained in:
Alex Shinn 2015-01-22 18:15:11 +09:00
parent 6ef0be789d
commit c2fe35e5d6
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/chibi/io/port.c
View file

@ -291,6 +291,7 @@ sexp sexp_get_output_bytevector (sexp ctx, sexp self, sexp port) {
return sexp_xtype_exception(ctx, self, "not a binary port", port); return sexp_xtype_exception(ctx, self, "not a binary port", port);
sexp_gc_preserve1(ctx, res); sexp_gc_preserve1(ctx, res);
res = sexp_get_output_string(ctx, port); res = sexp_get_output_string(ctx, port);
if (!sexp_exceptionp(res))
res = sexp_string_to_bytes(ctx, res); res = sexp_string_to_bytes(ctx, res);
sexp_gc_release1(ctx); sexp_gc_release1(ctx);
return res; return res;