Implemented ivector, with gen:custom-write so that they display like vectors. Store the elements inside a vector, and use an impersonator to make it appear as a list.

main.rkt

@@ -7,8 +7,12 @@
 
 (unsafe-require/typed tr-immutable/private/unsafe
                       [#:struct (A) ivector ([v : (Listof A)])
+                       #:constructor-name make-ivector
                        #:type-name IVectorof])
 
 (: new-ivector (∀ (A) (→ A * (IVectorof A))))
 (define (new-ivector . vs)
-  (ivector vs))
+  (make-ivector vs))
+
+;TODO: do a (with-sexp (var) body) which transforms to isexp on input, and back
+; to sexp on output, to prevent any obvious leaks?

private/unsafe.rkt

@@ -1,6 +1,33 @@
 #lang racket/base
 
+(require (for-syntax racket/base
+                     racket/contract))
 ;; TODO: make this a vector in the implementation, but make TR think it's a
 ;; list (via a contract?)
-(provide (struct-out ivector))
+(provide (except-out (struct-out ivector) make-ivector*)
-(struct ivector (v) #:mutable)
+         make-ivector)
+(struct ivector (v) #:mutable
+  #:constructor-name make-ivector*
+  #:transparent
+  #:methods gen:custom-write
+  [(define (write-proc iv port mode)
+     (case mode
+       [(#t) (write (raw-ivector-v iv) port)]
+       [(#f) (display (raw-ivector-v iv) port)]
+       [else (print (raw-ivector-v iv) port mode)]))])
+
+(define raw-ivector-v? (make-parameter #f))
+(define (raw-ivector-v iv)
+  (parameterize ([raw-ivector-v? #t])
+    (ivector-v iv)))
+
+(define (make-ivector v)
+  (impersonate-struct (make-ivector* (apply vector-immutable v))
+                      ivector-v
+                      (λ (self val)
+                        (if (raw-ivector-v?)
+                            val
+                            (vector->list val)))
+                      set-ivector-v!
+                      (λ (self val)
+                        (error "vector is immutable!"))))

test/test-vector.rkt

@@ -2,4 +2,32 @@
 
 (require tr-immutable
          typed/rackunit)
-(check-pred (make-predicate (IVectorof Positive-Byte)) (ivector 1 2 3))
+(check-pred (make-predicate (IVectorof Positive-Byte)) (ivector 1 2 3))
+
+(check-equal? (with-output-to-string
+               (λ ()
+                 (display (ivector 1 2 3))))
+              (with-output-to-string
+               (λ ()
+                 (display #(1 2 3)))))
+
+(check-equal? (with-output-to-string
+               (λ ()
+                 (write (ivector 1 2 3))))
+              (with-output-to-string
+               (λ ()
+                 (write #(1 2 3)))))
+
+(check-equal? (with-output-to-string
+               (λ ()
+                 (print (ivector 1 2 3) (current-output-port) 0)))
+              (with-output-to-string
+               (λ ()
+                 (print #(1 2 3) (current-output-port) 0))))
+
+(check-equal? (with-output-to-string
+               (λ ()
+                 (print (ivector 1 2 3) (current-output-port) 1)))
+              (with-output-to-string
+               (λ ()
+                 (print #(1 2 3) (current-output-port) 1))))