2026-03-20 19:11:03 +00:00
|
|
|
(use-modules (knots) (fibers) (knots resource-pool))
|
|
|
|
|
|
|
|
|
|
(run-fibers
|
|
|
|
|
(lambda ()
|
|
|
|
|
(let ((pool (make-resource-pool (const 'resource) 1)))
|
2026-03-22 19:12:59 +00:00
|
|
|
;; FIRST BACKTRACE ENTRY: (with-exception-handler
|
2026-03-20 19:11:03 +00:00
|
|
|
(with-exception-handler
|
|
|
|
|
(lambda (e)
|
|
|
|
|
(print-backtrace-and-exception/knots e)
|
|
|
|
|
(primitive-exit 1))
|
|
|
|
|
(lambda ()
|
|
|
|
|
(call-with-resource-from-pool pool
|
|
|
|
|
(lambda (resource)
|
|
|
|
|
(error "error from call-with-resource-from-pool"))))))) ; LAST BACKTRACE ENTRY HERE
|
|
|
|
|
#:hz 0 #:parallelism 1)
|
|
|
|
|
|