From 510305451cab411f37117be0dd17e1626d6929f0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 25 Nov 2008 18:14:57 +0000
Subject: [PATCH] remove broken define*-struct

svn: r12590

original commit: 7a66101d308e01124e513ccec5aa1ba6f34fa7dc
---
 collects/scheme/package.ss | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/collects/scheme/package.ss b/collects/scheme/package.ss
index edb53be..9667509 100644
--- a/collects/scheme/package.ss
+++ b/collects/scheme/package.ss
@@ -13,8 +13,7 @@
          define*
          define*-values
          define*-syntax
-         define*-syntaxes
-         define*-struct)
+         define*-syntaxes)
 
 (define-for-syntax (do-define-* stx define-values-id)
   (syntax-case stx ()
@@ -61,7 +60,8 @@
               exports)
        (ormap (lambda (h)
                 (and (free-identifier=? id h)
-                     ;; Not at top level, where free-id=? is unreliable:
+                     ;; Not at top level, where free-id=? is unreliable,
+                     ;; and re-definition is ok:
                      (identifier-binding id)
                      ;; Name is inaccessible. Generate a temporary to
                      ;; avoid potential duplicate-definition errors
@@ -392,15 +392,3 @@
   (do-open stx #'define-syntaxes))
 (define-syntax (open*-package stx)
   (do-open stx #'define*-syntaxes))
-
-(define-syntax (define*-struct stx)
-  (syntax-case stx ()
-    [(_ . rest)
-     (let ([ds (quasisyntax/loc stx
-                 (define-struct/derived #,stx . rest))])
-       (quasisyntax/loc stx
-         (begin
-           (define-package p #:all-defined
-             #,ds)
-           (open*-package p))))]))
-