summaryrefslogtreecommitdiff
path: root/guile-readline/readline.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-11-03 22:09:20 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-11-03 22:09:20 +0000
commit3d7f708f21b109277018e776ec3754975696e390 (patch)
tree7375110d778d41e84ca356226f7a85768804f7eb /guile-readline/readline.c
parent5cbed2d017e940d5ee2e625fe12d66278ae6cfb9 (diff)
downloadguile-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.c8
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);