constructor-boa-quot ( constructor-word class effect -- word quot )

Vocabulary

constructors

Inputs

constructor-word	an object
class	an object
effect	an object

Outputs

word	an object
quot	an object

Definition

USING: accessors kernel ;

IN: constructors

: constructor-boa-quot
    ( constructor-word class effect -- word quot )
    in>> swap [ slots>boa ] 2curry ; inline