simon/linol
1
0
Fork 0
mirror of https://github.com/c-cube/linol.git synced 2025-12-09 12:45:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix warning

Browse source
This commit is contained in:
Simon Cruanes 2021-04-09 23:47:52 -04:00
parent 149ab8464e
commit 2a3c815a08
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/blocking_IO.ml
View file

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