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

add missing defaults to calls to syntax-local-value

Browse Source
This commit is contained in:
Robby Findler 2012-02-24 11:30:29 -06:00
parent 60c1bc6638
commit ca9e8d742f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/contract/private/provide.rkt
View File

@ -745,10 +745,10 @@
(define (add-struct-clause-to-struct-id-mapping a parent flds/stx)
(define flds (syntax->list flds/stx))
(when (and (identifier? a)
(struct-info? (syntax-local-value a))
(struct-info? (syntax-local-value a (λ () #f)))
(or (not parent)
(and (identifier? parent)
(struct-info? (syntax-local-value parent))))
(struct-info? (syntax-local-value parent (λ () #f)))))
flds
(andmap identifier? flds))
(free-identifier-mapping-put!