From bebc45ae90481ca461c6fa0d81c14e4d291f912e Mon Sep 17 00:00:00 2001 From: Ludovic Courtes Date: Tue, 30 May 2006 21:23:18 +0000 Subject: [PATCH] Fixed a warning in `symbols.c'. * libguile/symbols.c (lookup_interned_symbol): When checking for `NULL', use `SCM2PTR' rather than `SCM_UNPACK' (this fixes a warning). git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-31 --- libguile/symbols.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/symbols.c b/libguile/symbols.c index 1f07f1aad..26abdc4c8 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -101,7 +101,7 @@ lookup_interned_symbol (const char *name, size_t len, pair = SCM_CAR (l); if (!scm_is_pair (pair)) abort (); - if (SCM_UNPACK (SCM_CAR (pair)) == NULL) + if (SCM2PTR (SCM_CAR (pair)) == NULL) /* Weak pointer. Ignore it. */ /* FIXME: Should we as well remove it, as in `scm_fixup_weak_alist'? */ continue;