From f1e1c997b70c6fc9bc2db0d1736f1c2bb51e6a56 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 18 Dec 1999 13:42:46 +0000 Subject: [PATCH] * debug.c (scm_reverse_lookup): Bugfix: Reinserted SCM_NIMP. --- libguile/debug.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/debug.c b/libguile/debug.c index 8d80b01d4..60be1c7c1 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -500,7 +500,7 @@ SCM scm_reverse_lookup (SCM env, SCM data) { SCM names, values; - while (SCM_CONSP (SCM_CAR (env))) + while (SCM_NIMP (env) && SCM_SLOPPY_CONSP (SCM_CAR (env))) { names = SCM_CAAR (env); values = SCM_CDAR (env);