Use Tag_cons from <caml/mlvalues.h>

To match `Val_emptylist`.
ocaml · Jan 9, 2021 · 5267953 · 5267953
1 parent 69a1f08
commit 5267953
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/runtime/io.c b/runtime/io.c
@@ -528,8 +528,6 @@ CAMLprim value caml_ml_set_channel_name(value vchannel, value vname)
   return Val_unit;
 }
 
-#define Pair_tag 0
-
 CAMLprim value caml_ml_out_channels_list (value unit)
 {
   CAMLparam0 ();
@@ -545,7 +543,7 @@ CAMLprim value caml_ml_out_channels_list (value unit)
     if (channel->max == NULL) {
       chan = caml_alloc_channel (channel);
       tail = res;
-      res = caml_alloc_small (2, Pair_tag);
+      res = caml_alloc_small (2, Tag_cons);
       Field (res, 0) = chan;
       Field (res, 1) = tail;
     }