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

change stxparse tests to use unstable/macro-testing

Browse Source
This commit is contained in:
Ryan Culpepper 2013-02-13 16:14:49 -05:00
parent 1ef3845873
commit fbee1ed9c7
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/stxparse/setup.rkt
View File

@ -4,6 +4,7 @@
(only-in syntax/parse/private/residual (only-in syntax/parse/private/residual
attribute-binding) attribute-binding)
syntax/parse/private/residual-ct ;; for attr functions syntax/parse/private/residual-ct ;; for attr functions
unstable/macro-testing
(for-syntax racket/base)) (for-syntax racket/base))
(provide tok (provide tok
@ -121,12 +122,3 @@ Auxiliaries
(parameterize ((error-print-source-location #f)) (parameterize ((error-print-source-location #f))
(convert-syntax-error expr)))) (convert-syntax-error expr))))
(void))) (void)))
(define-syntax (convert-syntax-error stx)
(syntax-case stx ()
[(_ expr)
(with-handlers ([exn:fail:syntax?
(lambda (e)
#`(error '#,(exn-message e)))])
(parameterize ((error-print-source-location #f))
(local-expand #'expr 'expression null)))]))