change stxparse tests to use unstable/macro-testing

This commit is contained in:
Ryan Culpepper 2013-02-13 16:14:49 -05:00
parent 1ef3845873
commit fbee1ed9c7

View File

@ -4,6 +4,7 @@
(only-in syntax/parse/private/residual
attribute-binding)
syntax/parse/private/residual-ct ;; for attr functions
unstable/macro-testing
(for-syntax racket/base))
(provide tok
@ -121,12 +122,3 @@ Auxiliaries
(parameterize ((error-print-source-location #f))
(convert-syntax-error expr))))
(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)))]))