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

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

@ -74,10 +74,12 @@ PRIVATE>
:: trace-quot ( word effect quot str -- quot' ) :: trace-quot ( word effect quot str -- quot' )
effect quot call :> values effect quot call :> values
values length :> n values length :> n
[
[ [
"--- " write str write bl word . "--- " write str write bl word .
n ndup n narray values swap zip simple-table. n ndup n narray values swap zip simple-table.
flush 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 _ . "--- Entering: " write _ .
"--- Variable values:" print _ [ dup get ] H{ } map>assoc describe "--- Variable values:" print _ [ dup get ] H{ } map>assoc describe
@ @
] with-output>error
] ; ] ;
PRIVATE> PRIVATE>