From 1e798023576b85f88f76f5093d860c2005ea5505 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Fri, 11 Oct 1996 08:59:38 +0000 Subject: * eval.c (scm_nconc2last): Revert last change; there seems to be other stuff going on here. --- libguile/eval.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/eval.c') diff --git a/libguile/eval.c b/libguile/eval.c index 6d460a71e..1570a4592 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -2369,12 +2369,12 @@ scm_nconc2last (lst) SCM *lloc; if (SCM_EOL == lst) return lst; - SCM_ASSERT (scm_ilength(lst) >= 0, lst, SCM_WNA, s_nconc2last); + SCM_ASSERT (SCM_NIMP (lst) && SCM_CONSP (lst), lst, SCM_ARG1, s_nconc2last); lloc = &lst; while (SCM_NNULLP (SCM_CDR (*lloc))) { lloc = &SCM_CDR (*lloc); - SCM_ASSERT (scm_ilength(SCM_CAR(*lloc)) >= 0, lst, SCM_ARGn, s_nconc2last); + SCM_ASSERT (SCM_NIMP (*lloc) && SCM_CONSP (*lloc), lst, SCM_ARG1, s_nconc2last); } *lloc = SCM_CAR (*lloc); return lst; -- cgit v1.2.3