From fbee1ed9c78890ed5f9e1d4bf64efbb0d3c5118b Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 13 Feb 2013 16:14:49 -0500 Subject: [PATCH] change stxparse tests to use unstable/macro-testing --- collects/tests/stxparse/setup.rkt | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/collects/tests/stxparse/setup.rkt b/collects/tests/stxparse/setup.rkt index a5c9fcb636..4536bf635b 100644 --- a/collects/tests/stxparse/setup.rkt +++ b/collects/tests/stxparse/setup.rkt @@ -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)))]))