define-typed-gensym ( word def effect -- gensym )

Vocabulary

typed.private

Inputs

word	an object
def	an object
effect	an object

Outputs

gensym

an object

Definition

USING: kernel words ;

IN: typed.private

: define-typed-gensym ( word def effect -- gensym )
    [ 2drop <typed-gensym> dup ] [ [ (typed) ] 3curry ] [ 2nip ]
    3tri define-declared ;