fix

Author: cknitt

compiler/ml/translmod.ml

@@ -449,9 +449,9 @@ and transl_structure loc fields cc rootpath final_env = function
     | Tstr_primitive _ | Tstr_type _ | Tstr_modtype _ | Tstr_open _ ->
       transl_structure loc fields cc rootpath final_env rem
     | Tstr_attribute x ->
-      Builtin_attributes.warning_attribute ~ppwarning:false
-        ~report_attribute_errors:false x;
-      transl_structure loc fields cc rootpath final_env rem)
+      Builtin_attributes.warning_scope ~ppwarning:false
+        ~report_attribute_errors:false [x] (fun () ->
+          transl_structure loc fields cc rootpath final_env rem))
 
 (* Update forward declaration in Translcore *)
 let _ = Translcore.transl_module := transl_module