factor/extra/tools/walker/debug/debug.factor

28 lines
735 B
Factor
Raw Normal View History

2008-02-21 00:13:22 -05:00
! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: concurrency.promises models tools.walker kernel
2008-02-21 00:13:31 -05:00
sequences concurrency.messaging locals continuations
2008-02-21 02:25:59 -05:00
threads namespaces namespaces.private ;
2008-02-21 00:13:22 -05:00
IN: tools.walker.debug
:: test-walker | quot |
[let | p [ <promise> ]
s [ f <model> ]
c [ f <model> ] |
2008-02-21 02:25:59 -05:00
[
H{ } clone >n
[ s c start-walker-thread p fulfill ] new-walker-hook set
[ drop ] show-walker-hook set
break
quot call
] "Walker test" spawn drop
2008-02-21 00:13:22 -05:00
step-into-all
p ?promise
send-synchronous drop
c model-value continuation-data
] ;