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 ] ] map
        '[ _ cleave ]
    ] [ '[ _ boa ] ] bi compose ;