Parent Directory | Revision Log | Patch
revision 1.57 by spiralvoice, Mon Nov 7 20:11:42 2005 UTC | revision 1.58 by spiralvoice, Sat Nov 12 11:20:21 2005 UTC | |
---|---|---|
# | Line 900 let client_id c = | Line 900 let client_id c = |
900 | let save_join_queue c = | let save_join_queue c = |
901 | if c.client_file_queue <> [] then | if c.client_file_queue <> [] then |
902 | let files = List.map (fun (file, chunks, _) -> | let files = List.map (fun (file, chunks, _) -> |
903 | file, Array.copy chunks | file, Bitv.copy chunks |
904 | ) c.client_file_queue in | ) c.client_file_queue in |
905 | begin | begin |
906 | if c.client_debug then | if c.client_debug then |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |