mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

* readline.c (scm_read_history, scm_write_history): Bugfix: Use

Browse source 
SCM_ROCHARS instead of SCM_CHARS.
This commit is contained in:
Mikael Djurfeldt 1998-11-06 18:15:40 +00:00
parent d1c90db5d6
commit 9fdba2fee5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/readline.c
View file

@ -271,7 +271,7 @@ scm_read_history (SCM file)
{ {
SCM_ASSERT (SCM_NIMP (file) && SCM_STRINGP (file), SCM_ASSERT (SCM_NIMP (file) && SCM_STRINGP (file),
file, SCM_ARG1, s_read_history); 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), SCM_ASSERT (SCM_NIMP (file) && SCM_STRINGP (file),
file, SCM_ARG1, s_write_history); 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;
} }