Megatest

Diff
Login

Differences From Artifact [0c3e939ba0]:

To Artifact [65718bc009]:


319
320
321
322
323
324
325

326

327
328
329
330
331
332
333
319
320
321
322
323
324
325
326

327
328
329
330
331
332
333
334







+
-
+







    (exit)))

(define (server:client-signal-handler signum)
  (handle-exceptions
   exn
   (debug:print " ... exiting ...")
   (let ((th1 (make-thread (lambda ()
			     (if (not *received-response*)
			     (receive-message* *runremote*)) ;; flush out last call if applicable
				 (receive-message* *runremote*))) ;; flush out last call if applicable
			   "eat response"))
	 (th2 (make-thread (lambda ()
			     (debug:print 0 "ERROR: Received ^C, attempting clean exit.")
			     (thread-sleep! 3) ;; give the flush three seconds to do it's stuff
			     (debug:print 0 "       Done.")
			     (exit 4))
			   "exit on ^C timer")))