51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
;; (if (> cnt 0)(loop (- cnt 1)))))
;; (print (client-send-receive req "quit"))
;; (nn-close req)
;; (exit))
;;
(thread-start! (lambda ()
(thread-sleep! 20)
(print "Give up on waiting for the server")
(nn-close req)
(exit)))
(thread-join! (thread-start! (lambda ()
(print (client-send-receive req (conc (current-user-name) "@" (get-host-name)))))))
(process-execute (car cmd) (cdr cmd))
|
|
|
>
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
;; (if (> cnt 0)(loop (- cnt 1)))))
;; (print (client-send-receive req "quit"))
;; (nn-close req)
;; (exit))
;;
(thread-start! (lambda ()
(thread-sleep! 60)
(print "Give up on waiting for the server")
(nn-close req)
;; (exit)
))
(thread-join! (thread-start! (lambda ()
(print (client-send-receive req (conc (current-user-name) "@" (get-host-name)))))))
(process-execute (car cmd) (cdr cmd))
|