Examples/test-suite/mzscheme/integers_runme.scm


1
2
3
4
5
6
7
8
9

(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")