Megatest

Diff
Login

Differences From Artifact [ed3b9950c2]:

To Artifact [04fedf655d]:


213
214
215
216
217
218
219

220
221
222
223
224
225
226
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227







+







(define (client:start run-id server-info)
  (http-transport:client-connect (tasks:hostinfo-get-interface server-info)
				 (tasks:hostinfo-get-port server-info)))

;; client:signal-handler
(define (client:signal-handler signum)
  (signal-mask! signum)
  (set! *time-to-exit* #t)
  (handle-exceptions
   exn
   (debug:print " ... exiting ...")
   (let ((th1 (make-thread (lambda ()
			     "") ;; do nothing for now (was flush out last call if applicable)
			   "eat response"))
	 (th2 (make-thread (lambda ()