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

tools.annotations: send watch to error-stream

db4
Joe Groff 2011-10-18 14:30:05 -07:00
parent b4d406cfa3
commit c850722cbb
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -75,9 +75,11 @@ PRIVATE>
effect quot call :> values effect quot call :> values
values length :> n values length :> n
[ [
"--- " write str write bl word . [
n ndup n narray values swap zip simple-table. "--- " write str write bl word .
flush n ndup n narray values swap zip simple-table.
flush
] with-output>error
] ; inline ] ; inline
MACRO: entering ( word -- quot ) MACRO: entering ( word -- quot )
@ -98,9 +100,11 @@ PRIVATE>
: (watch-vars) ( word vars quot -- newquot ) : (watch-vars) ( word vars quot -- newquot )
'[ '[
"--- Entering: " write _ . [
"--- Variable values:" print _ [ dup get ] H{ } map>assoc describe "--- Entering: " write _ .
@ "--- Variable values:" print _ [ dup get ] H{ } map>assoc describe
@
] with-output>error
] ; ] ;
PRIVATE> PRIVATE>