Re: [Chicken-users] display function that shows sharing

[Sven . Hartrumpf]

Thanks Kon for your answers.

Fri, 27 Apr 2007 13:01:53 -0700, klovett wrote:
> On Apr 27, 2007, at 12:37 PM, address@hidden wrote:
>
> > Hi all.
> >
> > Does chicken have a function that shows sharing in s-exps?
> > SRFI-38 can do this:
> >> (use srfi-38)
> >> (define a '(1 2))
> >> (define b (list a a))
> >> (write-with-shared-structure b)
> > (#1=(1 2) #1#)
> >
> > The problem with SRFI-38 is that I don't want too see sharing
> > between strings!
> > So, is there a parameter for SRFI-38?
> > Or is there a more adequate function in Chicken? (like display-circle
> > in bigloo)
>
> Not that I know of. But take a look at "testbase-support.scm" in the
> testbase egg. There is a function 'proper-object?' which does what
> you want.

If I understand the code correctly, this is just a test function, and
not a output function.
But I really have to see the sharing between lists etc. (except strings).

Ciao
Sven

pgpSi0x70hOY1.pgp
Description: PGP signature