summaryrefslogtreecommitdiffstats
path: root/otherlibs/unix/getpeername.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/unix/getpeername.c')
-rw-r--r--otherlibs/unix/getpeername.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/unix/getpeername.c b/otherlibs/unix/getpeername.c
index 6c175bd89..1498bedb2 100644
--- a/otherlibs/unix/getpeername.c
+++ b/otherlibs/unix/getpeername.c
@@ -19,7 +19,7 @@
#include "socketaddr.h"
-value unix_getpeername(value sock) /* ML */
+CAMLprim value unix_getpeername(value sock)
{
int retcode;
union sock_addr_union addr;
@@ -33,7 +33,7 @@ value unix_getpeername(value sock) /* ML */
#else
-value unix_getpeername(value sock)
+CAMLprim value unix_getpeername(value sock)
{ invalid_argument("getpeername not implemented"); }
#endif