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

fix SCM_CELL_* macro usage in arbiters.c

Browse source 
* libguile/arbiters.c (scm_try_arbiter, scm_release_arbiter): Fix
  erroneous SCM_CELL_* macro usage.
This commit is contained in:
Andy Wingo 2009-12-08 21:23:25 +01:00
parent c395cb7813
commit a253eec010
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/arbiters.c
View file

@ -122,7 +122,7 @@ SCM_DEFINE (scm_try_arbiter, "try-arbiter", 1, 0, 0,
{ {
scm_t_bits old; scm_t_bits old;
SCM_VALIDATE_SMOB (1, arb, arbiter); SCM_VALIDATE_SMOB (1, arb, arbiter);
FETCH_STORE (old, * (scm_t_bits *) SCM_CELL_OBJECT_LOC(arb,0), SCM_LOCK_VAL); FETCH_STORE (old, SCM_SMOB_DATA_0 (arb), SCM_LOCK_VAL);
return scm_from_bool (old == SCM_UNLOCK_VAL); return scm_from_bool (old == SCM_UNLOCK_VAL);
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -148,7 +148,7 @@ SCM_DEFINE (scm_release_arbiter, "release-arbiter", 1, 0, 0,
{ {
scm_t_bits old; scm_t_bits old;
SCM_VALIDATE_SMOB (1, arb, arbiter); SCM_VALIDATE_SMOB (1, arb, arbiter);
FETCH_STORE (old, *(scm_t_bits*)SCM_CELL_OBJECT_LOC(arb,0), SCM_UNLOCK_VAL); FETCH_STORE (old, SCM_SMOB_DATA_0 (arb), SCM_UNLOCK_VAL);
return scm_from_bool (old == SCM_LOCK_VAL); return scm_from_bool (old == SCM_LOCK_VAL);
} }
#undef FUNC_NAME #undef FUNC_NAME