fix warning

This commit is contained in:
Simon Cruanes 2021-04-09 23:47:52 -04:00
parent 149ab8464e
commit 2a3c815a08

View file

@ -29,8 +29,6 @@ let catch f g =
try f()
with e -> g e
let spf = Printf.sprintf
let rec read ic buf i len =
if len>0 then (
let n = input ic buf i len in