1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00

* strports.c (scm_eval_string): Don't close the port.

This commit is contained in:
Jim Blandy 1997-09-28 04:08:02 +00:00
parent 3cef7514cb
commit 0d7368d7c1

View file

@ -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;
}