socket_val fix (win32)

Fixes for Val_socket and Socket_val (Win32).

Slightly different from my last mail ( `!Is_block(v_fd)` instead of  `Long_val(v_fd) == -1`). Sockets are custom blocks under windows.