From 0d7fdb0ce2ccfcc14f465cbc57c62922d2347745 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Sun, 12 Apr 2020 17:31:45 -0400
Subject: [warnings] Be silent about the `set_tag` warning.

This is a critical warning in terms of future compatibility but it
makes no sense to be verbose about it every build.
---
 kernel/nativevalues.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/nativevalues.ml')

diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml
index 6cfe44c5ff..a5fcfae1fc 100644
--- a/kernel/nativevalues.ml
+++ b/kernel/nativevalues.ml
@@ -96,14 +96,14 @@ let mk_accu (a : atom) : t =
     else
       let data = { data with acc_arg = x :: data.acc_arg } in
       let ans = Obj.repr (accumulate data) in
-      let () = Obj.set_tag ans accumulate_tag [@ocaml.alert "--deprecated"] in
+      let () = Obj.set_tag ans accumulate_tag [@ocaml.warning "-3"] in
       ans
   in
   let acc = { acc_atm = a; acc_arg = [] } in
   let ans = Obj.repr (accumulate acc) in
   (** FIXME: use another representation for accumulators, this causes naked
       pointers. *)
-  let () = Obj.set_tag ans accumulate_tag [@ocaml.alert "--deprecated"] in
+  let () = Obj.set_tag ans accumulate_tag [@ocaml.warning "-3"] in
   (Obj.obj ans : t)
 
 let get_accu (k : accumulator) =
-- 
cgit v1.2.3