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

Adjusting check from last change - look for lists, not vectors.

Browse source
This commit is contained in:
Alex Shinn 2012-11-23 17:05:18 +09:00
parent 3cefb4fce6
commit f63d55aadb
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

@ -144,7 +144,9 @@ sexp sexp_finalize_port (sexp ctx, sexp self, sexp_sint_t n, sexp port) {
/* close the stream */ /* close the stream */
fclose(sexp_port_stream(port)); fclose(sexp_port_stream(port));
/* free the buffer if allocated */ /* free the buffer if allocated */
if (sexp_port_buf(port) && sexp_oportp(port) && sexp_vectorp(sexp_port_cookie(port)) if (sexp_port_buf(port) && sexp_oportp(port)
/* output string ports have list cookies */
&& (sexp_nullp(sexp_port_cookie(port)) || sexp_pairp(sexp_port_cookie(port)))
#if !SEXP_USE_STRING_STREAMS #if !SEXP_USE_STRING_STREAMS
&& !sexp_port_customp(port) && !sexp_port_customp(port)
#endif #endif