;;; conditions.scm

(import chicken scheme)

(use fmt)

(define (condition-test)
  (condition-case
      (lambda _ (signal 99))
    (exn () #t)))

(fmt #t (condition-test) nl)


;;;
$ csi -s conditions.scm
Error: uncaught exception: 99

        Call history:

        <syntax>          [condition-test] (##core#begin (k23 (##core#lambda () (##sys#apply ##sys#values args24))))
        <syntax>          [condition-test] (k23 (##core#lambda () (##sys#apply ##sys#values args24)))
        <syntax>          [condition-test] (##core#lambda () (##sys#apply ##sys#values args24))
        <syntax>          [condition-test] (##core#begin (##sys#apply ##sys#values args24))
        <syntax>          [condition-test] (##sys#apply ##sys#values args24)
        <syntax>          (fmt #t (condition-test) nl)
        <syntax>          (condition-test)
        <eval>    (fmt #t (condition-test) nl)
        <eval>    (condition-test)
        <eval>    [condition-test] ((call-with-current-continuation25 (##core#lambda (k23) (with-exception-handler26 (##core#lambda (ex......
        <eval>    [condition-test] (call-with-current-continuation25 (##core#lambda (k23) (with-exception-handler26 (##core#lambda (exv......
        <eval>    [condition-test] (with-exception-handler26 (##core#lambda (exvar16) (k23 (##core#lambda () (##core#let ((kvar17 (and1......
        <eval>    [condition-test] (##sys#call-with-values (##core#lambda () (lambda _ (signal 99))) (##core#lambda args24 (k23 (##core......
        <eval>    [condition-test] (k23 (##core#lambda () (##sys#apply ##sys#values args24)))
        <eval>    [condition-test] (##sys#apply ##sys#values args24)
        <eval>    [condition-test] (signal 99)  <--