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
values length :> n
[
"--- " write str write bl word .
n ndup n narray values swap zip simple-table.
flush
[
"--- " write str write bl word .
n ndup n narray values swap zip simple-table.
flush
] with-output>error
] ; inline
MACRO: entering ( word -- quot )
@ -98,9 +100,11 @@ PRIVATE>
: (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>