Christopher Baines
f203a8933a
All checks were successful
/ test (push) Successful in 4s
As these differ between 3.0.10 and 3.0.11.
18 lines
717 B
Scheme
18 lines
717 B
Scheme
(use-modules (knots) (fibers) (knots resource-pool) (knots web))
|
|
|
|
(run-fibers
|
|
(lambda ()
|
|
(let ((cache (make-fixed-size-resource-pool
|
|
(list (open-input-string "fake")))))
|
|
;; FIRST BACKTRACE ENTRY: (with-exception-handler
|
|
(with-exception-handler
|
|
(lambda (e)
|
|
(print-backtrace-and-exception/knots e)
|
|
(primitive-exit 1))
|
|
(lambda ()
|
|
(call-with-cached-connection cache
|
|
(lambda (port)
|
|
(error "error from call-with-cached-connection")) ; LAST BACKTRACE ENTRY HERE
|
|
#:close-connection-on-exception? #f)))))
|
|
#:hz 0 #:parallelism 1)
|
|
|