From 0d7368d7c1a616eec0b6569d0fd0589ff78a38aa Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sun, 28 Sep 1997 04:08:02 +0000 Subject: [PATCH] * strports.c (scm_eval_string): Don't close the port. --- libguile/strports.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/libguile/strports.c b/libguile/strports.c index ed8b24b1b..4e0ea1a8b 100644 --- a/libguile/strports.c +++ b/libguile/strports.c @@ -273,7 +273,11 @@ scm_eval_string (string) while (!SCM_EOF_OBJECT_P (form = scm_read (port))) ans = scm_eval_x (form); - scm_close_port (port); + /* Don't close the port here; if we re-enter this function via a + continuation, then the next time we enter it, we'll get an error. + It's a string port anyway, so there's no advantage to closing it + early. */ + return ans; }