/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. (define-macro (throws-exception? form)
  4. `(with-handlers ((not-break-exn? (lambda (exn) #t)))
  5. ,form
  6. #f))
  7. (load "../schemerunme/integers.scm")