tuple-prototype ( class -- prototype )

Vocabulary

classes.tuple.private

Inputs

class

an object

Outputs

prototype

an object

Definition

USING: classes.tuple kernel sequences ;

IN: classes.tuple.private

: tuple-prototype ( class -- prototype )
    [ initial-values ] keep over [ ] any?
    [ slots>tuple ] [ 2drop f ] if ;