From 48552b1dcf528ca96353e90ac14fdeb5eb87dc14 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 14 Jun 2000 15:03:01 +0000 Subject: [PATCH] * readline.c (scm_readline): Added parenthesis around && within ||. Fixed up prototype for `reentry_barrier'. Conditionally #include . (Needed for `dup'.) --- guile-readline/readline.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/guile-readline/readline.c b/guile-readline/readline.c index 9f3d14ff7..09ce69545 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -30,6 +30,9 @@ #include "libguile/gh.h" #include "libguile/iselect.h" +#ifdef HAVE_UNISTD_H +#include +#endif #include #include #include @@ -147,7 +150,7 @@ static scm_mutex_t reentry_barrier_mutex; static SCM internal_readline (SCM text); static SCM handle_error (void *data, SCM tag, SCM args); -static void reentry_barrier (); +static void reentry_barrier (void); SCM_DEFINE (scm_readline, "%readline", 0, 4, 0, @@ -172,7 +175,7 @@ SCM_DEFINE (scm_readline, "%readline", 0, 4, 0, } if (!((SCM_UNBNDP (inp) && SCM_NIMP (scm_cur_inp) && SCM_OPINFPORTP (inp)) - || SCM_NIMP (inp) && SCM_OPINFPORTP (inp))) + || (SCM_NIMP (inp) && SCM_OPINFPORTP (inp)))) { --in_readline; scm_misc_error (s_scm_readline, -- 2.20.1