summaryrefslogtreecommitdiff
path: root/libguile/environments.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/environments.c')
-rw-r--r--libguile/environments.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/environments.c b/libguile/environments.c
index cb366f0fb..ced455be7 100644
--- a/libguile/environments.c
+++ b/libguile/environments.c
@@ -545,7 +545,7 @@ obarray_replace (SCM obarray, SCM symbol, SCM data)
for (lsym = SCM_VELTS (obarray)[hash]; !SCM_NULLP (lsym); lsym = SCM_CDR (lsym))
{
SCM old_entry = SCM_CAR (lsym);
- if (SCM_CAR (old_entry) == symbol)
+ if (SCM_EQ_P (SCM_CAR (old_entry), symbol))
{
SCM_SETCAR (lsym, new_entry);
return old_entry;
@@ -571,7 +571,7 @@ obarray_retrieve (SCM obarray, SCM sym)
for (lsym = SCM_VELTS (obarray)[hash]; !SCM_NULLP (lsym); lsym = SCM_CDR (lsym))
{
SCM entry = SCM_CAR (lsym);
- if (SCM_CAR (entry) == sym)
+ if (SCM_EQ_P (SCM_CAR (entry), sym))
return entry;
}
@@ -596,7 +596,7 @@ obarray_remove (SCM obarray, SCM sym)
lsym = *(lsymp = SCM_CDRLOC (lsym)))
{
SCM entry = SCM_CAR (lsym);
- if (SCM_CAR (entry) == sym)
+ if (SCM_EQ_P (SCM_CAR (entry), sym))
{
*lsymp = SCM_CDR (lsym);
return entry;