From 64921cdd7623aafc558d2ab75c56d0c344dbe291 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 31 Oct 1998 14:18:07 +0000 Subject: [PATCH] * evalext.c (sequence->list): Fix --- libguile/evalext.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/libguile/evalext.c b/libguile/evalext.c index 622837280..31011130b 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -102,14 +102,16 @@ scm_m_undefine (x, env) static char s_sequence_to_list[] = "sequence->list"; SCM -scm_m_sequence_to_list (SCM x, SCM env) +scm_m_sequence_to_list (SCM xorig, SCM env) { + SCM x = xorig; SCM res = SCM_EOL; - SCM_ASSYNT (SCM_NULLP (SCM_CDR (x)) - || (SCM_NIMP (SCM_CDR (x) && SCM_ECONSP (SCM_CDR (x)))), - x, scm_s_expression, s_sequence_to_list); while (SCM_NNULLP (x = SCM_CDR (x))) - res = scm_cons (SCM_XEVALCAR (x, env), res); + { + SCM_ASSYNT (SCM_NIMP (x) && SCM_ECONSP (x), + xorig, scm_s_expression, s_sequence_to_list); + res = scm_cons (SCM_XEVALCAR (x, env), res); + } return res; }