test-walker ( quot -- data )

Vocabulary

tools.walker.debug

Inputs

quot

an object

Outputs

data

an object

Definition

USING: accessors assocs concurrency.messaging
concurrency.promises kernel namespaces namespaces.private
threads tools.continuations tools.walker ;

IN: tools.walker.debug

:: test-walker ( quot -- data )
    <promise> :> p [
        H{ } clone >n
        [ p promise-fulfilled? [ drop ] [ p fulfill ] if 2drop ]
        show-walker-hook set break quot call
    ] "Walker test" spawn drop
    step-into-all p ?promise send-synchronous drop
    p ?promise variables>> walker-continuation of value>> data>>
    ;