Look here for the prop:custom-writeproperty here . Here's a simple implementation:
(struct pr (x y)
#:transparent
#:property prop:custom-write (λ (v p w?)
(fprintf p "<~a,~a>" (pr-x v) (pr-y v))))
> (pr 1 2)
<1,2>
Please note that this also works with no structures #:transparent.
source
share