Zero-offset branches are backward branches; fix "br" backward branches

[bpt/guile.git] / libguile / list.c

diff --git a/libguile/list.c b/libguile/list.c
index d30f9e8..1f44ad0 100644 (file)
--- a/libguile/list.c
+++ b/libguile/list.c
@@ -90,7 +90,7 @@ scm_list_n (SCM elt, ...)
   while (! SCM_UNBNDP (elt))
     {
 #if (SCM_DEBUG_CELL_ACCESSES == 1)
-      if (SCM_NIMP (elt))
+      if (SCM_HEAP_OBJECT_P (elt))
        SCM_VALIDATE_CELL(elt, 0);
 #endif      
       *pos = scm_cons (elt, SCM_EOL);