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

Avoid local-expand in typed/rackunit.

Browse Source 
Fixes build problem.
This commit is contained in:
Sam Tobin-Hochstadt 2015-12-21 15:20:14 -05:00
parent b4489012a7
commit b00f74dad2
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
typed-racket-more/typed/rackunit/type-env-ext.rkt
View File

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