(module justatest
  (foo)
(import chicken scheme)
(define (foo)
 (handle-exceptions exn
       (condition->list exn)
       (error "Just a test")))
)

(import justatest)
(foo)



;; error 
;;
;;
;; Warning: reference to possibly unbound identifier `condition->list' in:
;; Warning:    foo
;;
;; Error: module unresolved: justatest
;;
;;        Call history:
;;
;;        <syntax>          [foo] (k6 (##core#lambda () (condition->list exn)))
;;        <syntax>          [foo] (##core#lambda () (condition->list exn))
;;        <syntax>          [foo] (##core#begin (condition->list exn))
;;        <syntax>          [foo] (condition->list exn)
;;        <syntax>          [foo] (##core#lambda () (##sys#call-with-values (##core#lambda () (error "Just a test")) (##core#lambda ar......
;;        <syntax>          [foo] (##core#begin (##sys#call-with-values (##core#lambda () (error "Just a test")) (##core#lambda args7 ...
;;        <syntax>          [foo] (##sys#call-with-values (##core#lambda () (error "Just a test")) (##core#lambda args7 (k6 (##core#la......
;;        <syntax>          [foo] (##core#lambda () (error "Just a test"))
;;        <syntax>          [foo] (##core#begin (error "Just a test"))
;;        <syntax>          [foo] (error "Just a test")
;;        <syntax>          [foo] (##core#lambda args7 (k6 (##core#lambda () (##sys#apply ##sys#values args7))))
;;        <syntax>          [foo] (##core#begin (k6 (##core#lambda () (##sys#apply ##sys#values args7))))
;;        <syntax>          [foo] (k6 (##core#lambda () (##sys#apply ##sys#values args7)))
;;        <syntax>          [foo] (##core#lambda () (##sys#apply ##sys#values args7))
;;        <syntax>          [foo] (##core#begin (##sys#apply ##sys#values args7))
;;        <syntax>          [foo] (##sys#apply ##sys#values args7)        <--