21 lines
626 B
Scheme
21 lines
626 B
Scheme
|
(use-modules (knots) (fibers) (knots parallelism))
|
||
|
|
|
||
|
|
(run-fibers
|
||
|
|
(lambda ()
|
||
|
|
(with-exception-handler
|
||
|
|
(lambda _
|
||
|
|
;; To avoid the test hanging if there's an exception
|
||
|
|
(primitive-exit 1))
|
||
|
|
(lambda ()
|
||
|
|
;; FIRST BACKTRACE ENTRY: 1762:12 (with-exception-handler
|
||
|
|
(with-exception-handler
|
||
|
|
(lambda (e)
|
||
|
|
(print-backtrace-and-exception/knots e)
|
||
|
|
(primitive-exit 1))
|
||
|
|
(lambda ()
|
||
|
|
(fibers-map
|
||
|
|
(lambda (x)
|
||
|
|
(error "error from fibers-map")) ; LAST BACKTRACE ENTRY HERE
|
||
|
|
'(1)))))))
|
||
|
|
#:hz 0 #:parallelism 1)
|