! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: concurrency.promises models tools.walker tools.continuations
kernel sequences concurrency.messaging locals continuations threads
namespaces namespaces.private assocs accessors ;
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>> ;