3c2bc16ff4
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8816 626c5289-ae23-0410-ae9c-e8d60b6d4f22
6 lines
155 B
Scheme
6 lines
155 B
Scheme
(load "integers.so")
|
|
(define-macro (throws-exception? form)
|
|
`(condition-case (begin ,form #f)
|
|
((exn) #t)))
|
|
|
|
(include "../schemerunme/integers.scm")
|