ensure-constructor-parameters ( class effect -- class effect )

Vocabulary

constructors

Inputs

class	an object
effect	an object

Outputs

class	an object
effect	an object

Definition

USING: accessors classes.tuple kernel sequences sets ;

IN: constructors

: ensure-constructor-parameters
    ( class effect -- class effect )
    dup in>> all-unique?
    [ repeated-constructor-parameters ] unless 2dup
    [ all-slots [ name>> ] map ] [ in>> ] bi* swap diff
    [ unknown-constructor-parameters ] unless-empty ;