File: scheme-module

package info (click to toggle)
git 1%3A2.53.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 62,528 kB
  • sloc: ansic: 309,696; sh: 264,007; perl: 25,983; tcl: 21,896; makefile: 4,296; python: 3,452; javascript: 772; csh: 45; xml: 41
file content (6 lines) | stat: -rw-r--r-- 235 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
 
(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)))