diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-11-03 22:09:20 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-11-03 22:09:20 +0000 |
commit | 3d7f708f21b109277018e776ec3754975696e390 (patch) | |
tree | 7375110d778d41e84ca356226f7a85768804f7eb /guile-readline/readline.c | |
parent | 5cbed2d017e940d5ee2e625fe12d66278ae6cfb9 (diff) | |
download | guile-3d7f708f21b109277018e776ec3754975696e390.tar.gz |
* __scm.h (USE_THREADS, GUILE_ISELECT): Define when
SCM_DEBUG_DEPRECATED. Removed their use thru-out Guile.
Diffstat (limited to 'guile-readline/readline.c')
-rw-r--r-- | guile-readline/readline.c | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/guile-readline/readline.c b/guile-readline/readline.c index 6fda528d3..89fa66ff5 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -148,9 +148,7 @@ redisplay () } static int in_readline = 0; -#ifdef USE_THREADS static SCM reentry_barrier_mutex; -#endif static SCM internal_readline (SCM text); static SCM handle_error (void *data, SCM tag, SCM args); @@ -227,17 +225,13 @@ static void reentry_barrier () { int reentryp = 0; -#ifdef USE_THREADS /* We should rather use scm_try_mutex when it becomes available */ scm_lock_mutex (reentry_barrier_mutex); -#endif if (in_readline) reentryp = 1; else ++in_readline; -#ifdef USE_THREADS scm_unlock_mutex (reentry_barrier_mutex); -#endif if (reentryp) scm_misc_error (s_scm_readline, "readline is not reentrant", SCM_EOL); } @@ -576,9 +570,7 @@ scm_init_readline () rl_pre_input_hook = sigwinch_enable_restart; #endif -#ifdef USE_THREADS reentry_barrier_mutex = scm_permanent_object (scm_make_mutex ()); -#endif scm_init_opts (scm_readline_options, scm_readline_opts, SCM_N_READLINE_OPTIONS); |