mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* arbiters.c (SCM_ARB_LOCKED): Use SCM_CARBITS.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-12 17:51:49 +00:00
parent 74a426ae25
commit 0bc908e7c4
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

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996, 1997 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996, 1997, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -63,7 +63,7 @@
static long scm_tc16_arbiter;
#define SCM_ARB_LOCKED(arb) (((SCMWORD) SCM_CAR(arb)) & (1L << 16))
#define SCM_ARB_LOCKED(arb) ((SCM_CARBITS (arb)) & (1L << 16))
#define SCM_LOCK_ARB(arb) SCM_SETCAR (arb, (SCM) (scm_tc16_arbiter | (1L << 16)));
#define SCM_UNLOCK_ARB(arb) SCM_SETCAR (arb, (SCM) scm_tc16_arbiter);