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

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

diff --git a/libguile/socket.c b/libguile/socket.c
index 82d03fb..a0b852b 100644 (file)
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -970,7 +970,7 @@ scm_addr_vector (const struct sockaddr *address, const char *proc)
 #endif
     default:
       scm_misc_error (proc, "Unrecognised address family: ~A",
-                     SCM_LIST1 (SCM_MAKINUM (fam)));
+                     scm_list_1 (SCM_MAKINUM (fam)));
     }
   return result;
 }