HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Deprecated scm_makfromstr and added scm_mem2string as a replacement.
[bpt/guile.git]
/
libguile
/
socket.c
diff --git
a/libguile/socket.c
b/libguile/socket.c
index
685d932
..
1eacf9f
100644
(file)
--- a/
libguile/socket.c
+++ b/
libguile/socket.c
@@
-191,7
+191,7
@@
SCM_DEFINE (scm_inet_ntoa, "inet-ntoa", 1, 0, 0,
SCM answer;
addr.s_addr = htonl (SCM_NUM2ULONG (1, inetid));
s = inet_ntoa (addr);
SCM answer;
addr.s_addr = htonl (SCM_NUM2ULONG (1, inetid));
s = inet_ntoa (addr);
- answer = scm_m
akfromstr (s, strlen (s), 0
);
+ answer = scm_m
em2string (s, strlen (s)
);
return answer;
}
#undef FUNC_NAME
return answer;
}
#undef FUNC_NAME
@@
-960,8
+960,7
@@
scm_addr_vector (const struct sockaddr *address, const char *proc)
result = scm_c_make_vector (2, SCM_UNSPECIFIED);
ve = SCM_VELTS (result);
ve[0] = scm_ulong2num ((unsigned long) fam);
result = scm_c_make_vector (2, SCM_UNSPECIFIED);
ve = SCM_VELTS (result);
ve[0] = scm_ulong2num ((unsigned long) fam);
- ve[1] = scm_makfromstr (nad->sun_path,
- (size_t) strlen (nad->sun_path), 0);
+ ve[1] = scm_mem2string (nad->sun_path, strlen (nad->sun_path));
}
break;
#endif
}
break;
#endif