define-clone-method ( class -- )

Vocabulary

classes.struct.private

Inputs

class

an object

Outputs

None

Definition

USING: classes.struct generic.parser kernel ;

IN: classes.struct.private

: define-clone-method ( class -- )
    [ \ clone ] [
        [ [ clone-underlying ] ] dip [ memory>struct ] curry
        compose
    ] bi define-inline-method ;