clean up unused definition

2015-08-16 00:00:58 -05:00 · 2015-08-16 00:00:58 -05:00 · 0ea39a1177
commit 0ea39a1177
parent 0037a0277f
1 changed files with 0 additions and 7 deletions
--- a/typed-racket-lib/typed-racket/base-env/prims-struct.rkt
+++ b/typed-racket-lib/typed-racket/base-env/prims-struct.rkt
@ -198,13 +198,6 @@
    (syntax-parse stx
      [(define-new-subtype ty:id (constructor:id rep-ty:expr))
       #:with gen-id (generate-temporary #'ty)
-       #:with stx-err-fun
-       #'(lambda (stx)
-           (raise-syntax-error
-            'type-check
-            "type name used out of context"
-            stx
-            (and (stx-pair? stx) (stx-car stx))))
       #`(begin
           (define-type-alias ty (Distinction ty gen-id rep-ty))
           #,(ignore