mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* environments.c: Don't use '==' to compare SCM objects.

Browse source 
* posix.c (scm_getgroups):  Don't create a redundant string object.
This commit is contained in:
Dirk Herrmann 2000-11-01 17:55:41 +00:00
parent 0f87853a56
commit 66460dfba3
3 changed files with 30 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/environments.c
View file

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