From: Joe Groff <arcata@gmail.com>
Date: Wed, 7 Jul 2010 05:47:01 +0000 (-0700)
Subject: windows.streams: remove some code used for debugging
X-Git-Tag: 0.97~4241^2~1^2^2~15
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=509f100806b28694aa23588586b240cc1f8b379e

windows.streams: remove some code used for debugging
---

diff --git a/basis/windows/streams/streams.factor b/basis/windows/streams/streams.factor
index 956b4aad10..5ec2664ea8 100644
--- a/basis/windows/streams/streams.factor
+++ b/basis/windows/streams/streams.factor
@@ -99,20 +99,6 @@ FROM: io.ports => tell-handle ;
     f out-clone-stream 0 void* set-alien-value
     STG_E_INVALIDFUNCTION ;
 
-USE: tools.annotations
-: watch-istream-callbacks ( -- )
-    \ IStream-read watch
-    \ IStream-write watch
-    \ IStream-seek watch
-    \ IStream-set-size watch
-    \ IStream-copy-to watch
-    \ IStream-commit watch
-    \ IStream-revert watch
-    \ IStream-lock-region watch
-    \ IStream-unlock-region watch
-    \ IStream-stat watch
-    \ IStream-clone watch ;
-
 CONSTANT: stream-wrapper
     $[
         {