/[mldonkey]/mldonkey/src/utils/cdk/printf2.ml
ViewVC logotype

Diff of /mldonkey/src/utils/cdk/printf2.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC revision 1.11 by spiralvoice, Tue Sep 6 11:25:00 2005 UTC
# Line 176  let cprintf kont fmt = Line 176  let cprintf kont fmt =
176    let rec doprn i =    let rec doprn i =
177      if i >= len then begin      if i >= len then begin
178        let res = Buffer.contents dest in        let res = Buffer.contents dest in
179        Buffer.clear dest;  (* just in case kprintf is partially applied *)        Buffer.reset dest;  (* just in case kprintf is partially applied *)
180        Obj.magic (kont res)        Obj.magic (kont res)
181      end else      end else
182      match String.unsafe_get fmt i with      match String.unsafe_get fmt i with

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26