<typed-gensym> ( parent-word -- word )


Vocabulary
typed.private

Inputs
parent-wordan object


Outputs
wordan object


Definition
USING: accessors kernel sequences words ;

IN: typed.private

: <typed-gensym> ( parent-word -- word )
[ name>> "( typed " " )" surround f <word> dup ]
[ "typed-gensym" set-word-prop ] bi ;