From 3ed7dfd62bd61a44888e02550899ae8f4bd86b91 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 4 Jan 2016 19:20:25 -0600 Subject: [PATCH] add the contract printer to set contracts --- racket/collects/racket/set.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/racket/set.rkt b/racket/collects/racket/set.rkt index d58ab523a1..8df5a90110 100644 --- a/racket/collects/racket/set.rkt +++ b/racket/collects/racket/set.rkt @@ -99,7 +99,8 @@ [else (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) (not (and (equal? kind 'immutable)