Mailing List Archive: Re: make/deep functionality?

[REBOL] Re: make/deep functionality?

From: g:santilli:tiscalinet:it at: 15-Jan-2003 19:38


Hi Robert,

On Wednesday, January 15, 2003, 4:15:46 PM, you wrote:

RMM> nuts... In 99% of all cases, where I use make! I need a new object with
RMM> all nested objects being new ones too. Robert

    make-deep: func [object spec] [
        object: make object spec
        foreach word next first object [
            word: in object word
            if object? get word [
                set word make-deep get word []
            ]
        ]
        object
    ]

Note: does not work in case of circular references.

Regards,
   Gabriele.
--
Gabriele Santilli <[g--santilli--tiscalinet--it]>  --  REBOL Programmer
Amigan -- AGI L'Aquila -- REB: http://web.tiscali.it/rebol/index.r