diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-05 11:39:46 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-05 11:39:46 +0000 |
commit | 9a09deb1c31529e4710dec3badc860ca1cd466af (patch) | |
tree | ada8db2350a0114a0d8d17eca63050c8d2620526 /libguile/gc.c | |
parent | 1f496b05af0b75a9ba5b4ee0e7f59b6fa4607a27 (diff) | |
download | guile-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.c | 2 |
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); |