scheme-module « t4018 « t - git.kernel.org/pub/scm/git/git.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

scheme-module « t4018 « t - git.kernel.org/pub/scm/git/git.git - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/t/t4018/scheme-module

blob: edfae0ebf7b0f79b2d5abe304a2d42a1731cbc17 (plain)

(module A RIGHT
  (export with-display-exception)
  (extern (display-exception display-exception ChangeMe))
  (def (with-display-exception thunk)
    (with-catch (lambda (e) (display-exception e (current-error-port)) e)
      thunk)))