(foreign-declare "
  #include <sys/types.h>                 
  #include <sys/socket.h>")

(define socketpair
  (foreign-primitive ()
    "
    int ends[2] = { -1, -1 };
    socketpair(PF_LOCAL, SOCK_STREAM, 0, ends);
    C_word av[4] = { C_SCHEME_UNDEFINED, C_k, C_fix(ends[0]), C_fix(ends[1]) };
    C_values(4, av);
    "))