(bind-func send_survey (lambda (msg) (let ((msglen (+ (strlen msg) 1)) (bytes (nn_send SURVEYOR_SOCKET msg msglen 0))) (if (or (< bytes 0) (< bytes (convert msglen))) (nn_println_strerror) void))))