From be21788fc5cbe86af52d4f0ea21daa73ed8fcf4f Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Tue, 28 May 2019 17:25:32 +0200
Subject: Fix [Drop. #use "include";;] for indirect_accessor

---
 dev/base_include | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dev/base_include')

diff --git a/dev/base_include b/dev/base_include
index b214959bad..f764eaf4f5 100644
--- a/dev/base_include
+++ b/dev/base_include
@@ -185,7 +185,7 @@ open Declareops;;
 
 let constbody_of_string s =
   let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_string s)) in
-  Option.get (Global.body_of_constant_body b);;
+  Option.get (Global.body_of_constant_body Library.indirect_accessor b);;
 
 (* Get the current goal *)
 (*
-- 
cgit v1.2.3