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 (add-struct-clause-to-struct-id-mapping a parent flds/stx)
(define flds (syntax->list flds/stx)) (define flds (syntax->list flds/stx))
(when (and (identifier? a) (when (and (identifier? a)
(struct-info? (syntax-local-value a)) (struct-info? (syntax-local-value a (λ () #f)))
(or (not parent) (or (not parent)
(and (identifier? parent) (and (identifier? parent)
(struct-info? (syntax-local-value parent)))) (struct-info? (syntax-local-value parent (λ () #f)))))
flds flds
(andmap identifier? flds)) (andmap identifier? flds))
(free-identifier-mapping-put! (free-identifier-mapping-put!