make-assoc ( quot exemplar -- assoc )

Vocabulary

make.private

Inputs

quot	an object
exemplar	an object

Outputs

assoc

an object

Definition

USING: assocs kernel make namespaces ;

IN: make.private

: make-assoc ( quot exemplar -- assoc )
    5 swap new-assoc [ building [ call ] with-variable ] keep ;
    inline