From f63d55aadb016255a922f4b57b097f1caeda3894 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 23 Nov 2012 17:05:18 +0900
Subject: [PATCH] Adjusting check from last change - look for lists, not
 vectors.

---
 sexp.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sexp.c b/sexp.c
index c7032a06..d7636d0a 100644
--- a/sexp.c
+++ b/sexp.c
@@ -144,7 +144,9 @@ 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) && 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
         && !sexp_port_customp(port)
 #endif