PageRenderTime 3ms CodeModel.GetById 1ms app.highlight 1ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/test-suite/mzscheme/integers_runme.scm

#
Lisp | 9 lines | 7 code | 2 blank | 0 comment | 0 complexity | a7fe027819b10df9f020ff7fee2fb1e0 MD5 | raw file
1(load-extension "integers.so")
2(require (lib "defmacro.ss"))
3
4(define-macro (throws-exception? form)
5  `(with-handlers ((not-break-exn? (lambda (exn) #t)))
6     ,form
7     #f))
8
9(load "../schemerunme/integers.scm")