steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/tools/annotations/annotations.factor
View File

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