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

forward keywords

Browse Source 
svn: r13725
This commit is contained in:
Robby Findler 2009-02-18 13:11:08 +00:00
parent cc29c603c0
commit cf856a33bf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/private/contract.ss
View File

@ -148,7 +148,7 @@ improve method arity mismatch contract violation error messages?
(define-syntax (define-struct/contract stx) (define-syntax (define-struct/contract stx)
(syntax-case stx () (syntax-case stx ()
[(_ name ([field ctc] ...)) [(_ name ([field ctc] ...) kwds ...)
(let ([fields (syntax->list #'(field ...))]) (let ([fields (syntax->list #'(field ...))])
(unless (identifier? #'name) (unless (identifier? #'name)
(raise-syntax-error 'define-struct/contract (raise-syntax-error 'define-struct/contract
@ -176,6 +176,7 @@ improve method arity mismatch contract violation error messages?
(with-contract #:type struct name (with-contract #:type struct name
(name struct:name id/ctc ...) (name struct:name id/ctc ...)
(define-struct name (field ...) (define-struct name (field ...)
kwds ...
#:guard (λ (field ... struct-name) #:guard (λ (field ... struct-name)
(unless (eq? 'name struct-name) (unless (eq? 'name struct-name)
(error (format "Cannot create subtype ~a of contracted struct ~a" (error (format "Cannot create subtype ~a of contracted struct ~a"