From 0ea39a1177730f752d8865e708f9e0beb1250cf1 Mon Sep 17 00:00:00 2001
From: AlexKnauth <alexander@knauth.org>
Date: Sun, 16 Aug 2015 00:00:58 -0500
Subject: [PATCH] clean up unused definition

---
 typed-racket-lib/typed-racket/base-env/prims-struct.rkt | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/typed-racket-lib/typed-racket/base-env/prims-struct.rkt b/typed-racket-lib/typed-racket/base-env/prims-struct.rkt
index 940b0320..09dc4f38 100644
--- 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