(nodes>quot) ( nodes -- )

Vocabulary

compiler.tree.debugger.private

Inputs

nodes

an object

Outputs

None

Definition

USING: compiler.tree.debugger kernel sequences ;

IN: compiler.tree.debugger.private

:: (nodes>quot) ( nodes -- )
    f :> pending! nodes [| node |
        node data-shuffle? [
            pending
            [ pending node compose-data-shuffles ] [ node ] if
            pending!
        ] [
            pending [ node>quot ] when*
            f pending! node node>quot
        ] if
    ] each pending [ node>quot ] when* ;