don't raise error for require/typed in module-begin context

2015-05-13 15:03:07 -04:00 · 2015-05-13 15:03:07 -04:00 · b11e48fa93
commit b11e48fa93
parent c6b1f8fdc0
1 changed files with 1 additions and 1 deletions
--- a/typed-racket-lib/typed-racket/base-env/prims-contract.rkt
+++ b/typed-racket-lib/typed-racket/base-env/prims-contract.rkt
@ -140,7 +140,7 @@


  (define ((r/t-maker legacy) stx)
-    (unless (unbox typed-context?)
+    (unless (or (unbox typed-context?) (eq? (syntax-local-context) 'module-begin))
      (raise-syntax-error #f "only allowed in a typed module" stx))
    (syntax-parse stx
      [(_ lib:expr (~var c (clause legacy #'lib)) ...)