fix printing for vector contracts

2013-10-02 09:53:47 -05:00 · 2013-10-02 09:53:47 -05:00 · 1742545640
commit 1742545640
parent 0feee4a711
1 changed files with 2 additions and 1 deletions
--- 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)])