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

remove broken define*-struct

Browse Source 
svn: r12590
This commit is contained in:
Matthew Flatt 2008-11-25 18:14:57 +00:00
parent ed536c002e
commit 7a66101d30
1 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/scheme/package.ss
View File

@ -13,8 +13,7 @@
define* define*
define*-values define*-values
define*-syntax define*-syntax
define*-syntaxes define*-syntaxes)
define*-struct)
(define-for-syntax (do-define-* stx define-values-id) (define-for-syntax (do-define-* stx define-values-id)
(syntax-case stx () (syntax-case stx ()
@ -61,7 +60,8 @@
exports) exports)
(ormap (lambda (h) (ormap (lambda (h)
(and (free-identifier=? id 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) (identifier-binding id)
;; Name is inaccessible. Generate a temporary to ;; Name is inaccessible. Generate a temporary to
;; avoid potential duplicate-definition errors ;; avoid potential duplicate-definition errors
@ -392,15 +392,3 @@
(do-open stx #'define-syntaxes)) (do-open stx #'define-syntaxes))
(define-syntax (open*-package stx) (define-syntax (open*-package stx)
(do-open stx #'define*-syntaxes)) (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))))]))