From 6efd278286d844aea39b3880b38a92cda6d7d259 Mon Sep 17 00:00:00 2001
From: KC Sivaramakrishnan <kc@kcsrk.info>
Date: Fri, 2 Aug 2019 11:58:09 +0530
Subject: Remove a level of indirection for accessing minor tables from
 Caml_state.

---
 runtime/intern.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'runtime/intern.c')

diff --git a/runtime/intern.c b/runtime/intern.c
index dd3b512ffd..9f83cdda9f 100644
--- a/runtime/intern.c
+++ b/runtime/intern.c
@@ -573,7 +573,7 @@ static void intern_rec(value *dest)
 
         if (ops->finalize != NULL && Is_young(v)) {
           /* Remember that the block has a finalizer. */
-          add_to_custom_table (&Caml_state->minor_tables->custom, v, 0, 1);
+          add_to_custom_table (Caml_state->custom_table, v, 0, 1);
         }
 
         intern_dest += 1 + size;
-- 
cgit v1.2.1