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

* evalext.c (sequence->list): Fix

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-10-31 14:18:07 +00:00
parent 35c969658f
commit 64921cdd76
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/evalext.c
View file

@ -102,14 +102,16 @@ scm_m_undefine (x, env)
static char s_sequence_to_list[] = "sequence->list"; static char s_sequence_to_list[] = "sequence->list";
SCM 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 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))) 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; return res;
} }