From 174254564004f7fdadd9acb6ad951cbcb0f0158d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 2 Oct 2013 09:53:47 -0500 Subject: [PATCH] fix printing for vector contracts --- racket/collects/racket/contract/private/vector.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/racket/contract/private/vector.rkt b/racket/collects/racket/contract/private/vector.rkt index 184a1b3a3c..8f6439b529 100644 --- a/racket/collects/racket/contract/private/vector.rkt +++ b/racket/collects/racket/contract/private/vector.rkt @@ -175,7 +175,8 @@ (define/subexpression-pos-prop (vector-immutableof c) (vectorof c #:immutable #t)) -(define-struct base-vector/c (elems immutable)) +(define-struct base-vector/c (elems immutable) + #:property prop:custom-write custom-write-property-proc) (define (vector/c-name c) (let ([immutable (base-vector/c-immutable c)])