From b00f74dad24eac67b53aad8368a0322267c1726e Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 21 Dec 2015 15:20:14 -0500 Subject: [PATCH] Avoid local-expand in `typed/rackunit`. Fixes build problem. --- typed-racket-more/typed/rackunit/type-env-ext.rkt | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/typed-racket-more/typed/rackunit/type-env-ext.rkt b/typed-racket-more/typed/rackunit/type-env-ext.rkt index c73a0780..16c840b0 100644 --- a/typed-racket-more/typed/rackunit/type-env-ext.rkt +++ b/typed-racket-more/typed/rackunit/type-env-ext.rkt @@ -13,10 +13,7 @@ (make-env [ru:check-around (-poly (a) (-> (-> a) a))] - ;; current-test-case-around - [(syntax-parse (local-expand #'(ru:test-begin 0) 'expression null) - #:context #'ru:test-begin - [(_ _ . _) #'ctca]) + [ru:current-test-case-around (-poly (a) (-> (-> a) a))])) (begin-for-syntax (initialize-type-env unit-env))