15 lines
420 B
Scheme
15 lines
420 B
Scheme
|
(use-modules (knots) (knots thread-pool))
|
||
|
|
|
||
|
|
(define thread-pool (make-fixed-size-thread-pool 1))
|
||
|
|
|
||
|
|
;; FIRST BACKTRACE ENTRY: 1762:12 (with-exception-handler
|
||
|
|
(with-exception-handler
|
||
|
|
(lambda (exn)
|
||
|
|
(print-backtrace-and-exception/knots exn)
|
||
|
|
(primitive-exit 1))
|
||
|
|
(lambda ()
|
||
|
|
(call-with-thread
|
||
|
|
thread-pool
|
||
|
|
(lambda ()
|
||
|
|
(error "error from call-with-thread"))))) ; LAST BACKTRACE ENTRY HERE
|