until-fixed-point ( ... #recursive quot: ( ... node -- ... ) -- ... )

Vocabulary

compiler.tree.combinators

Inputs

#recursive	an object
quot	a quotation with stack effect ( ... node -- ... )

Outputs

None

Definition

USING: accessors kernel namespaces ;

IN: compiler.tree.combinators

: until-fixed-point
    ( ... #recursive quot: ( ... node -- ... ) -- ... )
    over label>> t >>fixed-point drop [ with-scope ] 2keep
    over label>> fixed-point>>
    [ 2drop ] [ until-fixed-point ] if ; inline recursive