exception.scm

(import (scheme base)
        (scheme write))

(let ((l (call/cc (lambda (k)
                    (with-exception-handler
                     (lambda (e)
                       (display e))
                     (lambda ()
                       (call/cc (lambda (l)
                                  (k l)))
                       (raise 'an-error)))))))
  (l))