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

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

diff --git a/libguile/pairs.c b/libguile/pairs.c
index 24d1aec..0a77e2b 100644 (file)
--- a/libguile/pairs.c
+++ b/libguile/pairs.c
@@ -68,7 +68,7 @@ void scm_error_pair_access (SCM non_pair)
     {
       running = 1;
       scm_simple_format (scm_current_error_port (),
-                        message, SCM_LIST1 (non_pair));
+                        message, scm_list_1 (non_pair));
       abort ();
     }
 }