10 lines
291 B
Scheme
10 lines
291 B
Scheme
|
(load-extension "integers.so")
|
||
|
|
(require (lib "defmacro.ss"))
|
||
|
|
|
||
|
|
(define-macro (throws-exception? form)
|
||
|
|
`(with-handlers ((not-break-exn? (lambda (exn) #t)))
|
||
|
|
,form
|
||
|
|
#f))
|
||
|
|
|
||
|
|
(load (build-path (path-only (path->complete-path (find-system-path 'run-file))) "../schemerunme/integers.scm"))
|