clone-slots ( class -- quot )

Vocabulary

xml.data

Inputs

class

an object

Outputs

quot

an object

Definition

USING: accessors combinators kernel sequences slots words ;

IN: xml.data

MACRO: clone-slots ( class -- quot )
    [
        "slots" word-prop
        [ name>> reader-word [ execute clone ] curry ] map
        [ cleave ] curry
    ] [ [ boa ] curry ] bi compose ;