diff options
| author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2006-05-30 21:23:18 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-05 09:35:03 +0200 |
| commit | bebc45ae90481ca461c6fa0d81c14e4d291f912e (patch) | |
| tree | 223430bb7ff13e8489fdd5ee1889ea8c76b85f4d /libguile/symbols.c | |
| parent | 194c0a3e402f20c51f5bf7041d8b9edce913b071 (diff) | |
| download | guile-bebc45ae90481ca461c6fa0d81c14e4d291f912e.tar.gz | |
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
Diffstat (limited to 'libguile/symbols.c')
| -rw-r--r-- | libguile/symbols.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |