while-changing ( ... quot: ( ... -- ... ) -- ... )

Vocabulary

compiler.tree.recursive.private

Inputs

quot	a quotation with stack effect ( ... -- ... )

Outputs

None

Definition

USING: kernel namespaces ;

IN: compiler.tree.recursive.private

: while-changing ( ... quot: ( ... -- ... ) -- ... )
    changed? off
    [ call ] [ changed? get [ while-changing ] [ drop ] if ] bi
    ; inline recursive