diff options
-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) |