Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

Make sure to pass cleanup to wrap_in or wrap_out.

  • Loading branch information...
commit 108ed0a9e769eb3217591e5632a278f15ff3259f 1 parent 48c9d78
Erick Tryzelaar authored thelema committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/core/extlib/
4 src/core/extlib/
@@ -72,14 +72,14 @@ struct
let input_of_descr ?autoclose ?cleanup fd =
- wrap_in ?autoclose (in_channel_of_descr fd)
+ wrap_in ?autoclose ?cleanup (in_channel_of_descr fd)
let descr_of_input cin =
try descr_of_in_channel (input_get cin)
with Not_found -> raise (Invalid_argument "Unix.descr_of_in_channel")
let output_of_descr ?cleanup fd =
- wrap_out (out_channel_of_descr fd)
+ wrap_out ?cleanup (out_channel_of_descr fd)
let descr_of_output cout =
try descr_of_out_channel (output_get (cast_output cout))

0 comments on commit 108ed0a

Please sign in to comment.
Something went wrong with that request. Please try again.