guile-knots/tests/backtraces/vhash-fold.scm

(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: (with-exception-handler
(with-exception-handler
    (lambda (exn)
      (print-backtrace-and-exception/knots exn)
      (primitive-exit 1))
  (lambda ()
    (do-fold)
    'done))