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))