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:
parent
3cef7514cb
commit
0d7368d7c1
1 changed files with 5 additions and 1 deletions
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue