Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 23:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

need to free the buffer when using open_memstream

Browse source 
(unlike how it's done in the sample in the manpage)
This commit is contained in:
foof 2010-06-22 13:30:24 +00:00
parent a24de22094
commit 47a1c61117
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
sexp.c
View file

@ -61,12 +61,11 @@ sexp sexp_alloc_tagged(sexp ctx, size_t size, sexp_uint_t tag) {
sexp sexp_finalize_port (sexp ctx sexp_api_params(self, n), sexp port) { sexp sexp_finalize_port (sexp ctx sexp_api_params(self, n), sexp port) {
if (sexp_port_openp(port)) { if (sexp_port_openp(port)) {
sexp_port_openp(port) = 0; sexp_port_openp(port) = 0;
if (sexp_port_stream(port) && ! sexp_port_no_closep(port)) if (sexp_port_stream(port) && ! sexp_port_no_closep(port)) {
fclose(sexp_port_stream(port)); fclose(sexp_port_stream(port));
#if ! SEXP_USE_STRING_STREAMS
if (sexp_port_buf(port) && sexp_oportp(port)) if (sexp_port_buf(port) && sexp_oportp(port))
free(sexp_port_buf(port)); free(sexp_port_buf(port));
#endif }
} }
return SEXP_VOID; return SEXP_VOID;
} }