From 3cefb4fce623fe41a2a9df09cd603b20acce5a90 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 23 Nov 2012 16:57:57 +0900
Subject: [PATCH] Adding extra check in port finalization before freeing the
 buffer. Thanks again to Lorenzo.

---
 sexp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sexp.c b/sexp.c
index d061e912..c7032a06 100644
--- a/sexp.c
+++ b/sexp.c
@@ -144,7 +144,7 @@ sexp sexp_finalize_port (sexp ctx, sexp self, sexp_sint_t n, sexp port) {
       /* close the stream */
       fclose(sexp_port_stream(port));
       /* free the buffer if allocated */
-    if (sexp_port_buf(port) && sexp_oportp(port)
+    if (sexp_port_buf(port) && sexp_oportp(port) && sexp_vectorp(sexp_port_cookie(port))
 #if !SEXP_USE_STRING_STREAMS
         && !sexp_port_customp(port)
 #endif