From 262fa2306196fb279a9b473c0f89fd061458cb0c Mon Sep 17 00:00:00 2001
From: gareuselesinge
Date: Thu, 8 Aug 2013 18:52:24 +0000
Subject: Simple machinery to detect EXTEND that interpret during parsing

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16679 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/flags.ml  | 2 ++
 lib/flags.mli | 2 ++
 2 files changed, 4 insertions(+)

(limited to 'lib')

diff --git a/lib/flags.ml b/lib/flags.ml
index f47901ad72..cff86dbbb4 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -67,6 +67,8 @@ let raw_print = ref false
 
 let record_print = ref true
 
+let we_are_parsing = ref false
+
 (* Compatibility mode *)
 
 (* Current means no particular compatibility consideration.
diff --git a/lib/flags.mli b/lib/flags.mli
index c4ad3f333e..4908d4a484 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -26,6 +26,8 @@ val ide_slave : bool ref
 
 val time : bool ref
 
+val we_are_parsing : bool ref
+
 type load_proofs = Force | Lazy | Dont
 val load_proofs : load_proofs ref
 
-- 
cgit v1.2.3