suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust runtime errortraces in redex to manipulate namespaces a little more carefully

Browse Source
This commit is contained in:
Robby Findler 2012-02-10 13:17:18 -06:00
parent 6914c5667c
commit 122625960d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/redex/tests/test-util.rkt
View File

@ -2,8 +2,6 @@
(require "../private/matcher.rkt" (require "../private/matcher.rkt"
(for-syntax syntax/parse setup/path-to-relative) (for-syntax syntax/parse setup/path-to-relative)
errortrace/errortrace-lib
errortrace/errortrace-key
setup/path-to-relative setup/path-to-relative
racket/runtime-path) racket/runtime-path)
(provide test test-syn-err tests reset-count (provide test test-syn-err tests reset-count
@ -44,7 +42,8 @@
(map source-location (exn:fail:syntax-exprs exn))))]) (map source-location (exn:fail:syntax-exprs exn))))])
(thunk)))) (thunk))))
(define (runtime-error-test-setup thunk) (define (runtime-error-test-setup thunk)
(parameterize ([current-compile (make-errortrace-compile-handler)]) (define errortrace-key (dynamic-require 'errortrace/errortrace-key 'errortrace-key))
(parameterize ([current-compile ((dynamic-require 'errortrace/errortrace-lib 'make-errortrace-compile-handler))])
(with-handlers ([exn:fail? (with-handlers ([exn:fail?
(λ (exn) (λ (exn)
(values (exn-message exn) (values (exn-message exn)