31 lines
723 B
Factor
31 lines
723 B
Factor
! 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 swap at
|
|
value>> data>> ;
|