diff --git a/cfrontend/C2Clight.ml b/cfrontend/C2Clight.ml
index 1be7aaeaa8421c7e45c6fbabda8ba0e5a63b05cf..fe026003de85a214e4df245557a51cbb6a58ed89 100644
--- a/cfrontend/C2Clight.ml
+++ b/cfrontend/C2Clight.ml
@@ -771,7 +771,6 @@ let rec type_is_readonly env t =
   match Cutil.unroll env t with
   | C.TArray(t', _, _) -> type_is_readonly env t'
   | _ -> false
-  end
 
 let atom_is_static a =
   try