Kawa/testsuite/exit1.scm

;; Test that exit calls finally-handler.

(define (fun x)
  (try-finally
   (begin
     (format #t "before exit~%~!")
     (exit 0)
     (format #t "after exit~%~!"))
   (begin
     (format #t "in-finally~%~!")))
  (format #t "finish fun~%~!")
  (* x x))
(format #t "before call fun~%~!")
(fun 5)
(format #t "after call fun~%~!")

;; Output: before call fun
;; Output: before exit
;; Output: in-finally