[Mldonkey-commits] Changes to mldonkey/tools/make_torrent.ml

[mldonkey-commits]

Index: mldonkey/tools/make_torrent.ml
diff -u mldonkey/tools/make_torrent.ml:1.5 mldonkey/tools/make_torrent.ml:1.6
--- mldonkey/tools/make_torrent.ml:1.5  Thu Aug  4 22:00:23 2005
+++ mldonkey/tools/make_torrent.ml      Sun Oct 16 20:42:55 2005
@@ -22,15 +22,6 @@
 open Unix
 open Printf2
 
-
-let zero = Int64.zero
-let one = Int64.one
-let (++) = Int64.add
-let (--) = Int64.sub
-let ( ** ) x y = Int64.mul x (Int64.of_int y)
-let ( // ) x y = Int64.div x y
-
-
 open BTTypes
 
 let announce = ref ""
@@ -167,7 +158,7 @@
           end;
 
         let chunk_size = torrent.torrent_piece_size in
-        let npieces = 1+ Int64.to_int ((length -- one) // chunk_size) in
+        let npieces = 1 + Int64.to_int ((length -- one) // chunk_size) in
 
         if Array.length torrent.torrent_pieces <> npieces then begin
             Printf.printf "ERROR: computed npieces %d <> torrent npieces %d\n"