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

remove broken define*-struct

Browse Source 
svn: r12590

original commit: 7a66101d308e01124e513ccec5aa1ba6f34fa7dc
This commit is contained in:
Matthew Flatt 2008-11-25 18:14:57 +00:00
parent 4e48a33a49
commit 510305451c
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*-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))))]))