526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
|
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
|
-
+
|
;; Database connection
(set! *inmemdb* (db:setup))
(thread-start! th2)
(thread-start! th3)
(set! *didsomething* #t)
(thread-join! th2))
(debug:print 0 "ERROR: Failed to setup for megatest")))
(sdb:qry 'finalize)
;; (sdb:qry 'finalize)
(exit)))
(define (http-transport:server-signal-handler signum)
(handle-exceptions
exn
(debug:print " ... exiting ...")
(let ((th1 (make-thread (lambda ()
|