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

make struct/dc cooperate better with check syntax so that the struct name gets an arrow

Browse Source
This commit is contained in:
Robby Findler 2014-05-19 13:34:52 -05:00
parent 5751ebe530
commit 61dbf1a34f
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/racket/contract/private/struct-dc.rkt
View File

@ -1217,13 +1217,16 @@
dep-args) dep-args)
(cdr clauses)))]))) (cdr clauses)))])))
(syntax-property
#`(build-struct/dc (list #,@structs) #`(build-struct/dc (list #,@structs)
#,(list-ref info 1) #,(list-ref info 1)
#,(list-ref info 2) #,(list-ref info 2)
'#,struct-id '#,struct-id
(quote-module-name) (quote-module-name)
'#,struct-id '#,struct-id
#,struct/c?)) #,struct/c?)
'disappeared-use
(list (syntax-local-introduce struct-id))))
(define-syntax (-struct/dc stx) (do-struct/dc #f stx)) (define-syntax (-struct/dc stx) (do-struct/dc #f stx))