tools.annotations: send watch to error-stream
parent
b4d406cfa3
commit
c850722cbb
|
@ -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>
|
||||||
|
|
Loading…
Reference in New Issue