tools.annotations: Use fry in '(watch-vars)'

db4
Eduardo Cavazos 2008-09-13 11:12:36 -05:00
parent d2646cfe1b
commit 1bf65e6dc5
1 changed files with 6 additions and 5 deletions

View File

@ -55,11 +55,12 @@ M: word reset
dup [ (watch) ] annotate ;
: (watch-vars) ( quot word vars -- newquot )
[
"--- Entering: " write swap .
"--- Variable values:" print
[ dup get ] H{ } map>assoc describe
] 2curry prepose ;
rot
'[
"--- Entering: " write _ .
"--- Variable values:" print _ [ dup get ] H{ } map>assoc describe
@
] ;
: watch-vars ( word vars -- )
dupd [ (watch-vars) ] 2curry annotate ;