From 21bcc5f6fc8db1ccad16dea89f1705a799c1d090 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 27 Dec 2018 08:56:23 +0100
Subject: Notations: Enforce strong evaluation of cases_pattern_of_glob_constr.

This is because it can raise Not_found in depth and we need to catch
it at the right time.
---
 lib/dAst.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/dAst.ml')

diff --git a/lib/dAst.ml b/lib/dAst.ml
index f34ab956a3..803b2a0cff 100644
--- a/lib/dAst.ml
+++ b/lib/dAst.ml
@@ -30,6 +30,8 @@ let make ?loc v = CAst.make ?loc (Value v)
 
 let delay ?loc v = CAst.make ?loc (Thunk (Lazy.from_fun v))
 
+let force x = CAst.make ?loc:x.CAst.loc (Value (get_thunk x.v))
+
 let map f n = CAst.map (fun x -> map_thunk f x) n
 
 let map_with_loc f n =
-- 
cgit v1.2.3