* Don't use SCM_LISTn any more.

diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index 648b863..6137503 100644 (file)
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -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>
 
        * readline.c, readline.h: Replace "scm_*_t" with "scm_t_*".

diff --git a/guile-readline/readline.c b/guile-readline/readline.c
index 7e0eb14..0d24033 100644 (file)
--- a/guile-readline/readline.c
+++ b/guile-readline/readline.c
@@ -410,7 +410,7 @@ completion_function (char *text, int continuep)
     {
       SCM t = scm_makfrom0str (text);
       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))
        return NULL;
@@ -418,7 +418,7 @@ completion_function (char *text, int continuep)
       if (!SCM_STRINGP (res))
        scm_misc_error (s_scm_readline,
                        "Completion function returned bogus value: %S",
-                       SCM_LIST1 (res));
+                       scm_list_1 (res));
       SCM_STRING_COERCE_0TERMINATION_X (res);
       return strdup (SCM_STRING_CHARS (res));
     }