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

add some missing custom printers (to recursive-contract)

Browse Source
This commit is contained in:
Robby Findler 2014-01-08 09:22:55 -06:00
parent 5e0182029f
commit a7304d18eb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/contract/private/base.rkt
View File

@ -141,6 +141,7 @@
(struct recursive-contract ([name #:mutable] thunk [ctc #:mutable])) (struct recursive-contract ([name #:mutable] thunk [ctc #:mutable]))
(struct flat-recursive-contract recursive-contract () (struct flat-recursive-contract recursive-contract ()
#:property prop:custom-write custom-write-property-proc
#:property prop:flat-contract #:property prop:flat-contract
(build-flat-contract-property (build-flat-contract-property
#:name recursive-contract-name #:name recursive-contract-name
@ -148,6 +149,7 @@
#:projection recursive-contract-projection #:projection recursive-contract-projection
#:stronger recursive-contract-stronger)) #:stronger recursive-contract-stronger))
(struct chaperone-recursive-contract recursive-contract () (struct chaperone-recursive-contract recursive-contract ()
#:property prop:custom-write custom-write-property-proc
#:property prop:chaperone-contract #:property prop:chaperone-contract
(build-chaperone-contract-property (build-chaperone-contract-property
#:name recursive-contract-name #:name recursive-contract-name
@ -155,6 +157,7 @@
#:projection recursive-contract-projection #:projection recursive-contract-projection
#:stronger recursive-contract-stronger)) #:stronger recursive-contract-stronger))
(struct impersonator-recursive-contract recursive-contract () (struct impersonator-recursive-contract recursive-contract ()
#:property prop:custom-write custom-write-property-proc
#:property prop:contract #:property prop:contract
(build-contract-property (build-contract-property
#:name recursive-contract-name #:name recursive-contract-name