make-recursive ( word -- )

Vocabulary

words

Inputs

word

a word

Outputs

None

Word description

Marks a word as recursive. Methods for generated words may also mark the wrapper through which recursive calls enter the implementation.

Definition

IN: words

GENERIC: make-recursive ( word -- )

Methods

USING: generic kernel typed words ;

M: typed-gensym make-recursive
    [ M\ typed-gensym make-recursive (call-next-method) ]
    [ parent-word make-recursive ] bi ;


USING: words ;

M: word make-recursive t "recursive" set-word-prop ;