PageRenderTime 41ms CodeModel.GetById 18ms RepoModel.GetById 0ms app.codeStats 0ms

/tags/rel-1.3.35/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. 

  2. (require (lib "defmacro.ss"))
    3. 

  3. 

  4. (define-macro (throws-exception? form)
    5. 

  5.   `(with-handlers ((not-break-exn? (lambda (exn) #t)))
    6. 

  6.      ,form
    7. 

  7.      #f))
    8. 

    9. 

  9. (load "../schemerunme/integers.scm")
    10. 

    11.