swig/Examples/test-suite/mzscheme/integers_runme.scm
Matthias Köppe ca7f3bf836 New test case integers.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8815 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2006-02-14 18:25:16 +00:00

9 lines
215 B
Scheme

(load-extension "integers.so")
(require (lib "defmacro.ss"))
(define-macro (throws-exception? form)
`(with-handlers ((not-break-exn? (lambda (exn) #t)))
,form
#f))
(load "../schemerunme/integers.scm")