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

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

diff --git a/libguile/deprecation.c b/libguile/deprecation.c
index 6501d7f..9271fb0 100644 (file)
--- a/libguile/deprecation.c
+++ b/libguile/deprecation.c
@@ -66,7 +66,7 @@ scm_c_issue_deprecation_warning (const char *msg)
   if (SCM_BOOLP (issued_msgs))
     issued_msgs = SCM_BOOL_T;
   else
-    scm_issue_deprecation_warning (SCM_LIST1 (scm_makfrom0str (msg)));
+    scm_issue_deprecation_warning (scm_list_1 (scm_makfrom0str (msg)));
 }
 
 SCM_DEFINE(scm_issue_deprecation_warning,