[Chicken-users] Printing recursive objects

[Richard]

Hello Chickens,

If I have an object that references itself, like for example...

(define v (vector 0))
(vector-set! v 0 v)

and I print it, chicken goes -understandably- into an infinite loop.

Is there a way to prevent this, or is there something like
define-record-printer for non-record objects.

thank you,
Richard