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

add the contract printer to set contracts

Browse Source
This commit is contained in:
Robby Findler 2016-01-04 19:20:25 -06:00
parent 14b951cf44
commit 3ed7dfd62b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/set.rkt
View File

@ -99,7 +99,8 @@
[else [else
(impersonator-set-contract elem/c equal-key/c cmp kind lazy?)])) (impersonator-set-contract elem/c equal-key/c cmp kind lazy?)]))
(struct set-contract [elem/c equal-key/c cmp kind lazy?]) (struct set-contract [elem/c equal-key/c cmp kind lazy?]
#:property prop:custom-write contract-custom-write-property-proc)
(define (lazy-default kind elem/c) (define (lazy-default kind elem/c)
(not (and (equal? kind 'immutable) (not (and (equal? kind 'immutable)