[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyProtoClient.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyProtoClient.ml
diff -u mldonkey/src/networks/donkey/donkeyProtoClient.ml:1.28 
mldonkey/src/networks/donkey/donkeyProtoClient.ml:1.29
--- mldonkey/src/networks/donkey/donkeyProtoClient.ml:1.28      Sat Nov 12 
11:20:22 2005
+++ mldonkey/src/networks/donkey/donkeyProtoClient.ml   Sat Nov 19 17:19:45 2005
@@ -301,7 +301,7 @@
       }
 
     let parse emule len s =
-(*      Printf.printf "Query File: emule version %d len %d"
+(*      lprintf "Query File: emule version %d len %d"
       (extendedrequest emule) len;
       print_newline (); *)
       let md4 = get_md4 s 1 in
@@ -1140,7 +1140,7 @@
     | 0x92 (* 146 *) ->
         let md4 = get_md4 s 1 in
 
-(*        Printf.printf "MULTI EMULE VERSION %d"
+(*        lprintf "MULTI EMULE VERSION %d"
           (extendedrequest emule); print_newline (); *)
         let pos = 17 in
         let rec iter pos =
@@ -1177,7 +1177,7 @@
         end;
         let md4 = get_md4 s 1 in
 
-(*        Printf.printf "MULTI EMULE VERSION %d"
+(*        lprintf "MULTI EMULE VERSION %d"
           (extendedrequest emule); print_newline (); *)
         let rec iter s pos len =
           if pos < len then