76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
(let ((signature (make-signature)))
(thread-start! (lambda ()
(thread-sleep! 60)
(print "Give up on waiting for the server")
(nn-close req)
;; (exit)
))
(thread-join! (thread-start! (lambda ()
(let-values
(((delay-time msg)(get-delay signature)))
(print "INFO: sleeping " delay-time " seconds per request of queuefeeder server")
(thread-sleep! delay-time)
(print "INFO: done waiting, now executing requested task."))))))
(process-execute (car cmd) (cdr cmd))
|
|
|
>
|
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
(let ((signature (make-signature)))
(thread-start! (lambda ()
(thread-sleep! 60)
(print "Give up on waiting for the server")
;; (nn-close req)
;; (exit)
))
(thread-join! (thread-start! (lambda ()
(let-values
(((delay-time msg)(get-delay signature)))
(print "INFO: sleeping " delay-time " seconds per request of queuefeeder server")
(thread-sleep! delay-time)
(print "INFO: done waiting, now executing requested task.")))))
(nn-close req))
(process-execute (car cmd) (cdr cmd))
|