From 9fdba2fee597e7dbfce876640b5af14d13fdc93e Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 6 Nov 1998 18:15:40 +0000 Subject: [PATCH] * readline.c (scm_read_history, scm_write_history): Bugfix: Use SCM_ROCHARS instead of SCM_CHARS. --- libguile/readline.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/readline.c b/libguile/readline.c index 1c06893f1..63150b9b9 100644 --- a/libguile/readline.c +++ b/libguile/readline.c @@ -271,7 +271,7 @@ scm_read_history (SCM file) { SCM_ASSERT (SCM_NIMP (file) && SCM_STRINGP (file), file, SCM_ARG1, s_read_history); - return read_history (SCM_CHARS (file)) ? SCM_BOOL_F : SCM_BOOL_T; + return read_history (SCM_ROCHARS (file)) ? SCM_BOOL_F : SCM_BOOL_T; } @@ -282,7 +282,7 @@ scm_write_history (SCM file) { SCM_ASSERT (SCM_NIMP (file) && SCM_STRINGP (file), file, SCM_ARG1, s_write_history); - return write_history (SCM_CHARS (file)) ? SCM_BOOL_F : SCM_BOOL_T; + return write_history (SCM_ROCHARS (file)) ? SCM_BOOL_F : SCM_BOOL_T; }