bittorrent: remove debug for now.

diff --git a/extra/bittorrent/bittorrent.factor b/extra/bittorrent/bittorrent.factor
index b9b1f5c3192db71cfdd2cb77629355fb4f09c4e2..71e310adb8691fd44f24e8446de877686367c978 100644 (file)
--- a/extra/bittorrent/bittorrent.factor
+++ b/extra/bittorrent/bittorrent.factor
@@ -470,14 +470,4 @@ M:: piece handle-message ( peer message -- peer )
     peer request-piece ;
 
 : read-messages ( peer -- peer )
-    [ read-message dup ] [ handle-message ] while drop ;
-
-
-\ write-message [
-    '[ [ "write-message: " write dup . ] with-debug @ ]
-] annotate
-
-
-\ handle-message [
-    '[ [ "handle-message: " write dup . ] with-debug @ ]
-] annotate
+    [ read-message ] [ handle-message ] while* drop ;