This commit is contained in:
Justin Ethier 2019-07-01 18:31:06 -04:00
parent 800b8ecb67
commit 46de4b9049

View file

@ -391,10 +391,7 @@
(threads tp:threads tp:set-threads!)
)
(define (thread-pool-default-handler err)
;; TODO: why is this never being called??
(write "called default error handler") (newline)
#f)
(define (thread-pool-default-handler err) #f)
(define (%make-thread-pool-thread q handler)
(make-thread