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

Reverted recent change to scm_mutex_init: now backward compatible

Browse source 
again.
This commit is contained in:
Mikael Djurfeldt 2000-03-12 14:26:59 +00:00
parent f3b5e18566
commit b74b1a6387
3 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guile-readline/readline.c
View file

@ -517,7 +517,7 @@ scm_init_readline ()
rl_readline_name = "Guile"; rl_readline_name = "Guile";
#ifdef USE_THREADS #ifdef USE_THREADS
scm_mutex_init (&reentry_barrier_mutex, NULL); scm_mutex_init (&reentry_barrier_mutex);
#endif #endif
scm_init_opts (scm_readline_options, scm_init_opts (scm_readline_options,
scm_readline_opts, scm_readline_opts,

1
libguile/ChangeLog
View file

@ -20,7 +20,6 @@
coop_mutex_trylock. coop_mutex_trylock.
(scm_cond_init): Changed definition to (scm_cond_init): Changed definition to
coop_new_condition_variable_init. coop_new_condition_variable_init.
(scm_mutex_init): Changed definition to coop_new_mutex_init.
* coop.c: #include <errno.h> * coop.c: #include <errno.h>
(coop_timeout_qinsert): Moved here from iselect.c (coop_timeout_qinsert): Moved here from iselect.c

2
libguile/coop-defs.h
View file

@ -153,7 +153,7 @@ extern int coop_mutex_lock (coop_m*);
extern int coop_mutex_trylock (coop_m*); extern int coop_mutex_trylock (coop_m*);
extern int coop_mutex_unlock (coop_m*); extern int coop_mutex_unlock (coop_m*);
extern int coop_mutex_destroy (coop_m*); extern int coop_mutex_destroy (coop_m*);
#define scm_mutex_init coop_new_mutex_init #define scm_mutex_init coop_mutex_init
#define scm_mutex_lock coop_mutex_lock #define scm_mutex_lock coop_mutex_lock
#define scm_mutex_trylock coop_mutex_lock #define scm_mutex_trylock coop_mutex_lock
#define scm_mutex_unlock coop_mutex_unlock #define scm_mutex_unlock coop_mutex_unlock