mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

* debug.c (scm_reverse_lookup): Bugfix: Reinserted SCM_NIMP.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-12-18 13:42:46 +00:00
parent dcf8fb3e65
commit f1e1c997b7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/debug.c
View file

@ -500,7 +500,7 @@ SCM
scm_reverse_lookup (SCM env, SCM data) scm_reverse_lookup (SCM env, SCM data)
{ {
SCM names, values; SCM names, values;
while (SCM_CONSP (SCM_CAR (env))) while (SCM_NIMP (env) && SCM_SLOPPY_CONSP (SCM_CAR (env)))
{ {
names = SCM_CAAR (env); names = SCM_CAAR (env);
values = SCM_CDAR (env); values = SCM_CDAR (env);