* list.h (scm_list_1, scm_list_2, scm_list_3, scm_list_4, scm_list_5,

[bpt/guile.git] / libguile / eval.c

diff --git a/libguile/eval.c b/libguile/eval.c
index ffd195c..337c52a 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -2523,7 +2523,7 @@ dispatch:
       proc = x;
     badfun:
       /* scm_everr (x, env,...) */
-      scm_misc_error (NULL, "Wrong type to apply: ~S", SCM_LIST1 (proc));
+      scm_misc_error (NULL, "Wrong type to apply: ~S", scm_list_1 (proc));
     case scm_tc7_vector:
     case scm_tc7_wvect:
 #ifdef HAVE_ARRAYS