Silence no-return warning

This commit is contained in:
John Whitington 2024-04-16 07:49:11 +08:00
parent ea0e29d802
commit 3671c2d14b

View File

@ -35,6 +35,6 @@ let jpeg2000_dimensions_inner bs =
done
let jpeg2000_dimensions bs =
try jpeg2000_dimensions_inner bs; (0, 0) with
try ignore (jpeg2000_dimensions_inner bs); (0, 0) with
| Answer (w, h) -> (w, h)
| Exit -> error "could not determine JPEG2000 dimensions"