[racket-dev] Transparent Structures in XML Library

Doug, does this concrete example concerning printing help: 

#lang racket/load 

(module a racket/base
  (struct xml (bar) #:transparent)
  
  (define x (xml "bar"))
  (displayln x)

  (provide (struct-out xml) x))

(module b racket/base
  (require 'a)

  (struct my xml () #:property prop:custom-write (lambda (x p z) (displayln "<my xml>" p)))
  
  (define y (my "bar"))
  
  (displayln y))

(require 'b)