let
slurp x =
if
!*
My_unix
.is_degraded
then
slurp_with_find x
else
real_slurp x