/tags/rel-1-3-29/SWIG/Examples/test-suite/mzscheme/integers_runme.scm
Lisp | 9 lines | 7 code | 2 blank | 0 comment | 0 complexity | a7fe027819b10df9f020ff7fee2fb1e0 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
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")