mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* strports.c (scm_eval_0str): Don't return uninitialized garbage

Browse source 
if EXPR contains no expressions.
This commit is contained in:
Jim Blandy 1996-12-18 21:40:21 +00:00
parent 3323ad081e
commit 407775cb81
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/strports.c
View file

@ -259,7 +259,7 @@ scm_eval_0str (expr)
SCM_OPN | SCM_RDNG,
"scm_eval_0str");
SCM form;
SCM ans;
SCM ans = SCM_EOL;
/* Read expressions from that port; ignore the values. */
while ((form = scm_read (port, SCM_BOOL_F, SCM_BOOL_F)) != SCM_EOF_VAL)