dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Don't use SCM_LISTn any more.

Browse source
This commit is contained in:
Dirk Herrmann 2001-06-30 19:28:26 +00:00
commit 5b2a7b5906
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guile-readline/ChangeLog
View file

@ -1,3 +1,8 @@
2001-06-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* readline.c (completion_function): Use scm_list_n instead of
SCM_LISTn.
2001-06-14 Marius Vollmer <mvo@zagadka.ping.de> 2001-06-14 Marius Vollmer <mvo@zagadka.ping.de>
* readline.c, readline.h: Replace "scm_*_t" with "scm_t_*". * readline.c, readline.h: Replace "scm_*_t" with "scm_t_*".

4
guile-readline/readline.c
View file

@ -410,7 +410,7 @@ completion_function (char *text, int continuep)
{ {
SCM t = scm_makfrom0str (text); SCM t = scm_makfrom0str (text);
SCM c = continuep ? SCM_BOOL_T : SCM_BOOL_F; SCM c = continuep ? SCM_BOOL_T : SCM_BOOL_F;
res = scm_apply (compfunc, SCM_LIST2 (t, c), SCM_EOL); res = scm_apply (compfunc, scm_list_2 (t, c), SCM_EOL);
if (SCM_FALSEP (res)) if (SCM_FALSEP (res))
return NULL; return NULL;
@ -418,7 +418,7 @@ completion_function (char *text, int continuep)
if (!SCM_STRINGP (res)) if (!SCM_STRINGP (res))
scm_misc_error (s_scm_readline, scm_misc_error (s_scm_readline,
"Completion function returned bogus value: %S", "Completion function returned bogus value: %S",
SCM_LIST1 (res)); scm_list_1 (res));
SCM_STRING_COERCE_0TERMINATION_X (res); SCM_STRING_COERCE_0TERMINATION_X (res);
return strdup (SCM_STRING_CHARS (res)); return strdup (SCM_STRING_CHARS (res));
} }