summaryrefslogtreecommitdiff
path: root/guile-readline/readline.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-05-15 14:59:42 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-05-15 14:59:42 +0000
commit296ff5e78b8322fe4bf00c5ec1497dc28da776b8 (patch)
tree126f17d6658e00bd9aa1bda3734ea00d80511789 /guile-readline/readline.c
parent86d31dfe7d0754b863863f6544c75097ef68fe8c (diff)
downloadguile-296ff5e78b8322fe4bf00c5ec1497dc28da776b8.tar.gz
Merged from mvo-vcell-cleanup-1-branch.
Diffstat (limited to 'guile-readline/readline.c')
-rw-r--r--guile-readline/readline.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 565c264ad..35c332fd6 100644
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -397,7 +397,7 @@ SCM scm_readline_completion_function_var;
static char *
completion_function (char *text, int continuep)
{
- SCM compfunc = SCM_CDR (scm_readline_completion_function_var);
+ SCM compfunc = SCM_VARIABLE_REF (scm_readline_completion_function_var);
SCM res;
if (SCM_FALSEP (compfunc))
@@ -542,7 +542,7 @@ scm_init_readline ()
#ifdef HAVE_RL_GETC_FUNCTION
#include "guile-readline/readline.x"
scm_readline_completion_function_var
- = scm_sysintern ("*readline-completion-function*", SCM_BOOL_F);
+ = scm_c_define ("*readline-completion-function*", SCM_BOOL_F);
rl_getc_function = current_input_getc;
rl_redisplay_function = redisplay;
rl_completion_entry_function = (Function*) completion_function;