summaryrefslogtreecommitdiff
path: root/libguile/net_db.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/net_db.c')
-rw-r--r--libguile/net_db.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/net_db.c b/libguile/net_db.c
index 9e92c7071..19a826d09 100644
--- a/libguile/net_db.c
+++ b/libguile/net_db.c
@@ -251,7 +251,7 @@ SCM_DEFINE (scm_gethost, "gethost", 0, 1, 0,
"@code{system-error} or @code{misc_error} keys.")
#define FUNC_NAME s_scm_gethost
{
- SCM ans = scm_make_vector (SCM_MAKINUM (5), SCM_UNSPECIFIED);
+ SCM ans = scm_c_make_vector (5, SCM_UNSPECIFIED);
SCM *ve = SCM_VELTS (ans);
SCM lst = SCM_EOL;
struct hostent *entry;
@@ -336,7 +336,7 @@ SCM_DEFINE (scm_getnet, "getnet", 0, 1, 0,
SCM *ve;
struct netent *entry;
- ans = scm_make_vector (SCM_MAKINUM (4), SCM_UNSPECIFIED);
+ ans = scm_c_make_vector (4, SCM_UNSPECIFIED);
ve = SCM_VELTS (ans);
if (SCM_UNBNDP (net))
{
@@ -388,7 +388,7 @@ SCM_DEFINE (scm_getproto, "getproto", 0, 1, 0,
SCM *ve;
struct protoent *entry;
- ans = scm_make_vector (SCM_MAKINUM (3), SCM_UNSPECIFIED);
+ ans = scm_c_make_vector (3, SCM_UNSPECIFIED);
ve = SCM_VELTS (ans);
if (SCM_UNBNDP (protocol))
{
@@ -430,7 +430,7 @@ scm_return_entry (struct servent *entry)
SCM ans;
SCM *ve;
- ans = scm_make_vector (SCM_MAKINUM (4), SCM_UNSPECIFIED);
+ ans = scm_c_make_vector (4, SCM_UNSPECIFIED);
ve = SCM_VELTS (ans);
ve[0] = scm_makfromstr (entry->s_name, (scm_sizet) strlen (entry->s_name), 0);
ve[1] = scm_makfromstrs (-1, entry->s_aliases);