From b4a1dc6637e357ab99df2efc7822b6dca260c21c Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 18 Oct 2011 14:30:05 -0700
Subject: [PATCH] tools.annotations: send watch to error-stream

---
 basis/tools/annotations/annotations.factor | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/basis/tools/annotations/annotations.factor b/basis/tools/annotations/annotations.factor
index c5c810fe04..6232241107 100644
--- a/basis/tools/annotations/annotations.factor
+++ b/basis/tools/annotations/annotations.factor
@@ -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>