27 lines
603 B
Scheme
27 lines
603 B
Scheme
|
(use-modules (knots) (ice-9 vlist))
|
||
|
|
|
||
|
|
;; LAST BACKTRACE ENTRY: 257:2
|
||
|
|
|
||
|
|
(define (do-fold)
|
||
|
|
(begin
|
||
|
|
(vhash-fold
|
||
|
|
(lambda (key value result)
|
||
|
|
;; Shouldn't be reached
|
||
|
|
#f)
|
||
|
|
0
|
||
|
|
;; The aim here is to pass in #f for the vlist, and cause an
|
||
|
|
;; exception within the (ice-9 vlist) module
|
||
|
|
#f)
|
||
|
|
'done))
|
||
|
|
|
||
|
|
;; 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-temporary-thread
|
||
|
|
(lambda ()
|
||
|
|
(do-fold)
|
||
|
|
'done))))
|