diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-12-18 21:40:21 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-12-18 21:40:21 +0000 |
commit | 407775cb81cb5e254dfbacc3644ea888e694b7f2 (patch) | |
tree | 4c32f6ecdc46233698d3f6ad97f569ad93b92629 | |
parent | 3323ad081e607467dccf7c68d9c33e8f99a8fd85 (diff) | |
download | guile-407775cb81cb5e254dfbacc3644ea888e694b7f2.tar.gz |
* strports.c (scm_eval_0str): Don't return uninitialized garbage
if EXPR contains no expressions.
-rw-r--r-- | libguile/strports.c | 2 |
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) |