summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-05 11:39:46 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-05 11:39:46 +0000
commit9a09deb1c31529e4710dec3badc860ca1cd466af (patch)
treeada8db2350a0114a0d8d17eca63050c8d2620526 /libguile/gc.c
parent1f496b05af0b75a9ba5b4ee0e7f59b6fa4607a27 (diff)
downloadguile-9a09deb1c31529e4710dec3badc860ca1cd466af.tar.gz
* Removed SCM_TRUE_P since it may get confused with !SCM_FALSEP.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 9c90dc31c..b7dcbc349 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -2071,7 +2071,7 @@ SCM_DEFINE (scm_unhash_name, "unhash-name", 1, 0, 0,
scm_bits_t word0 = SCM_CELL_WORD_0 (cell) - scm_tc3_cons_gloc;
SCM gloc_car = SCM_PACK (word0); /* access as gloc */
SCM vcell = SCM_CELL_OBJECT_1 (gloc_car);
- if ((SCM_TRUE_P (name) || SCM_EQ_P (SCM_CAR (gloc_car), name))
+ if ((SCM_EQ_P (name, SCM_BOOL_T) || SCM_EQ_P (SCM_CAR (gloc_car), name))
&& (SCM_UNPACK (vcell) != 0) && (SCM_UNPACK (vcell) != 1))
{
SCM_SET_CELL_OBJECT_0 (cell, name);