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

Use SCM_EQ_P insteda of ==' or !=' in certain

Browse source 
places. (scm_c_improper_memq): Return q instead of SCM_BOOL_T.
This commit is contained in:
Marius Vollmer 2001-05-20 23:39:55 +00:00
parent 1990dd38ab
commit c6772927b4
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/eval.c
View file

@ -302,7 +302,7 @@ scm_lookupcar (SCM vloc, SCM genv, int check)
} }
#endif #endif
#ifdef USE_THREADS #ifdef USE_THREADS
if (SCM_CAR (vloc) != var) if (!SCM_EQ_P (SCM_CAR (vloc), var))
goto race; goto race;
#endif #endif
SCM_SETCAR (vloc, iloc); SCM_SETCAR (vloc, iloc);
@ -357,7 +357,7 @@ scm_lookupcar (SCM vloc, SCM genv, int check)
#endif #endif
#ifdef USE_THREADS #ifdef USE_THREADS
if (SCM_CAR (vloc) != var) if (!SCM_EQ_P (SCM_CAR (vloc), var))
{ {
/* Some other thread has changed the very cell we are working /* Some other thread has changed the very cell we are working
on. In effect, it must have done our job or messed it up on. In effect, it must have done our job or messed it up
@ -411,7 +411,7 @@ scm_unmemocar (SCM form, SCM env)
{ {
SCM sym = SCM sym =
scm_module_reverse_lookup (scm_env_module (env), SCM_GLOC_VAR (c)); scm_module_reverse_lookup (scm_env_module (env), SCM_GLOC_VAR (c));
if (sym == SCM_BOOL_F) if (SCM_EQ_P (sym, SCM_BOOL_F))
sym = sym_three_question_marks; sym = sym_three_question_marks;
SCM_SETCAR (form, sym); SCM_SETCAR (form, sym);
} }
@ -639,7 +639,7 @@ scm_m_cond (SCM xorig, SCM env)
SCM_SYNTAX(s_lambda, "lambda", scm_makmmacro, scm_m_lambda); SCM_SYNTAX(s_lambda, "lambda", scm_makmmacro, scm_m_lambda);
SCM_GLOBAL_SYMBOL(scm_sym_lambda, s_lambda); SCM_GLOBAL_SYMBOL(scm_sym_lambda, s_lambda);
/* Return #t if OBJ is `eq?' to one of the elements of LIST or to the /* Return true if OBJ is `eq?' to one of the elements of LIST or to the
cdr of the last cons. (Thus, LIST is not required to be a proper cdr of the last cons. (Thus, LIST is not required to be a proper
list and when OBJ also found in the improper ending.) */ list and when OBJ also found in the improper ending.) */
@ -649,7 +649,7 @@ scm_c_improper_memq (SCM obj, SCM list)
for (; SCM_CONSP (list); list = SCM_CDR (list)) for (; SCM_CONSP (list); list = SCM_CDR (list))
{ {
if (SCM_EQ_P (SCM_CAR (list), obj)) if (SCM_EQ_P (SCM_CAR (list), obj))
return SCM_BOOL_T; return 1;
} }
return SCM_EQ_P (list, obj); return SCM_EQ_P (list, obj);
} }