[plt-scheme] Problem with prop:custom-write

At Tue, 22 Nov 2005 11:26:34 +0100, Erich Rast wrote:
> Can anyone tell me what's wrong with the following code?
> [...]
>    (define internal-label-symbol (make-struct-field-accessor 
> struct:internal-label 0))
   ^^^^^^^^^^^^^^^^^^^

Use `internal-label-ref' here and in the second definition.

Or, try

 (require (lib "struct.ss"))
 (define-struct/properties internal-label (symbol index)
   ([prop:custom-write print-internal-label]))

> Execution enters an infinite display loop and makes DrScheme freeze.

This is puzzling, and we're still looking into it.

Matthew