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

* readline.c: Always provide scm_init_readline, also if readline

Browse source 
support is not included.  Otherwise, a strange dynamic loading
error will occur.  (It would be better not to install
libguilereadline at all.)
This commit is contained in:
Mikael Djurfeldt 2000-06-06 12:44:17 +00:00
parent c8fac0c3e5
commit 62947883ed
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guile-readline/readline.c
View file

@ -25,7 +25,7 @@
#include "libguile/_scm.h" #include "libguile/_scm.h"
#if defined (HAVE_RL_GETC_FUNCTION) #ifdef HAVE_RL_GETC_FUNCTION
#include "libguile.h" #include "libguile.h"
#include "libguile/gh.h" #include "libguile/gh.h"
#include "libguile/iselect.h" #include "libguile/iselect.h"
@ -499,10 +499,12 @@ match_paren (int x, int k)
return 0; return 0;
} }
#endif /* HAVE_RL_GETC_FUNCTION */
void void
scm_init_readline () scm_init_readline ()
{ {
#ifdef HAVE_RL_GETC_FUNCTION
#include "guile-readline/readline.x" #include "guile-readline/readline.x"
scm_readline_completion_function_var scm_readline_completion_function_var
= scm_sysintern ("*readline-completion-function*", SCM_BOOL_F); = scm_sysintern ("*readline-completion-function*", SCM_BOOL_F);
@ -520,10 +522,9 @@ scm_init_readline ()
SCM_N_READLINE_OPTIONS); SCM_N_READLINE_OPTIONS);
init_bouncing_parens(); init_bouncing_parens();
scm_add_feature ("readline"); scm_add_feature ("readline");
#endif /* HAVE_RL_GETC_FUNCTION */
} }
#endif
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"