summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-12-18 21:40:21 +0000
committerJim Blandy <jimb@red-bean.com>1996-12-18 21:40:21 +0000
commit407775cb81cb5e254dfbacc3644ea888e694b7f2 (patch)
tree4c32f6ecdc46233698d3f6ad97f569ad93b92629
parent3323ad081e607467dccf7c68d9c33e8f99a8fd85 (diff)
downloadguile-407775cb81cb5e254dfbacc3644ea888e694b7f2.tar.gz
* strports.c (scm_eval_0str): Don't return uninitialized garbage
if EXPR contains no expressions.
-rw-r--r--libguile/strports.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strports.c b/libguile/strports.c
index e0b1b092b..3518c9cff 100644
--- a/libguile/strports.c
+++ b/libguile/strports.c
@@ -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)