diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:59:42 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-15 14:59:42 +0000 |
commit | 296ff5e78b8322fe4bf00c5ec1497dc28da776b8 (patch) | |
tree | 126f17d6658e00bd9aa1bda3734ea00d80511789 /guile-readline/readline.c | |
parent | 86d31dfe7d0754b863863f6544c75097ef68fe8c (diff) | |
download | guile-296ff5e78b8322fe4bf00c5ec1497dc28da776b8.tar.gz |
Merged from mvo-vcell-cleanup-1-branch.
Diffstat (limited to 'guile-readline/readline.c')
-rw-r--r-- | guile-readline/readline.c | 4 |
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; |