Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |