279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
|
(begin
(sqlite3:interrupt! db)
(sqlite3:finalize! db #t)
(vector-set! *task-db* 0 #f)))))) "Cleanup db exit thread"))
(th2 (make-thread (lambda ()
(debug:print 4 "Attempting clean exit. Please be patient and wait a few seconds...")
(if no-hurry
(thread-sleep! 5) ;; give the clean up few seconds to do it's stuff
(thread-sleep! 1))
(debug:print 0 " Done.")
)
"clean exit")))
(thread-start! th2)
(thread-start! th1)
(thread-join! th2))))
(define (std-signal-handler signum)
|
|
|
|
|
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
|
(begin
(sqlite3:interrupt! db)
(sqlite3:finalize! db #t)
(vector-set! *task-db* 0 #f)))))) "Cleanup db exit thread"))
(th2 (make-thread (lambda ()
(debug:print 4 "Attempting clean exit. Please be patient and wait a few seconds...")
(if no-hurry
(thread-sleep! 0.1) ;; give the clean up few seconds to do it's stuff
(thread-sleep! 4))
(debug:print 4 " ... done")
)
"clean exit")))
(thread-start! th2)
(thread-start! th1)
(thread-join! th2))))
(define (std-signal-handler signum)
|