more care regarding SCM_PACK and SCM_UNPACK

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

diff --git a/libguile/modules.c b/libguile/modules.c
index a9fe3b3..ca8875d 100644 (file)
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -947,7 +947,7 @@ SCM_DEFINE (scm_module_reverse_lookup, "module-reverse-lookup", 2, 0, 0,
        {
          handle = SCM_CAR (ls);
 
-         if (SCM_CAR (handle) == SCM_PACK (NULL))
+         if (SCM_UNPACK (SCM_CAR (handle)) == 0)
            {
              /* FIXME: We hit a weak pair whose car has become unreachable.
                 We should remove the pair in question or something.  */