Parent Directory | Revision Log | Patch
revision 1.37 by spiralvoice, Sun Aug 28 11:09:14 2005 UTC | revision 1.38 by spiralvoice, Mon Aug 29 14:54:59 2005 UTC | |
---|---|---|
# | Line 435 module MultiFile = struct | Line 435 module MultiFile = struct |
435 | let fd = FDCache.local_force_fd file_out true in | let fd = FDCache.local_force_fd file_out true in |
436 | try | try |
437 | let v = f fd zero in | let v = f fd zero in |
438 | FDCache.close file_out; | |
439 | Sys.remove temp_file; | Sys.remove temp_file; |
440 | v | v |
441 | with e -> | with e -> |
442 | FDCache.close file_out; | |
443 | Sys.remove temp_file; | Sys.remove temp_file; |
444 | raise e | raise e |
445 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |