bittorrent: fix read-messages.

diff --git a/extra/bittorrent/bittorrent.factor b/extra/bittorrent/bittorrent.factor
index 71e310adb8691fd44f24e8446de877686367c978..1b4f6ff95fa090b8c8089208964886a9ef542e57 100644 (file)
--- a/extra/bittorrent/bittorrent.factor
+++ b/extra/bittorrent/bittorrent.factor
@@ -470,4 +470,4 @@ M:: piece handle-message ( peer message -- peer )
     peer request-piece ;
 
 : read-messages ( peer -- peer )
-    [ read-message ] [ handle-message ] while* drop ;
+    [ read-message ] [ handle-message ] while* ;