mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fixed a warning in `symbols.c'.

Browse source 
* 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
This commit is contained in:
Ludovic Courtes 2006-05-30 21:23:18 +00:00 • committed by Ludovic Courtès
parent 194c0a3e40
commit bebc45ae90
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/symbols.c
View file

@ -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;