From a29edb0a5e9d420a3780a7034aad4ef9cfe7c148 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 26 Oct 2009 14:46:43 +0000
Subject: New cleaning phase of the Local/Global option management -
 Clarification and documentation of the different styles of   Local/Global
 modifiers in vernacexpr.ml - Addition of Global in sections for Open/Close
 Scope. - Addition of Local for Ltac when not in sections.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12418 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/interface/xlate.ml | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'plugins/interface')

diff --git a/plugins/interface/xlate.ml b/plugins/interface/xlate.ml
index d294af68d2..b4e0e69bbf 100644
--- a/plugins/interface/xlate.ml
+++ b/plugins/interface/xlate.ml
@@ -1632,7 +1632,7 @@ let rec xlate_module_expr = function
 
 let rec xlate_vernac =
  function
-   | VernacDeclareTacticDefinition (true, tacs) ->
+   | VernacDeclareTacticDefinition (false, true, tacs) ->
        (match List.map
 	 (function
 	      (id, _, body) ->
@@ -1642,8 +1642,10 @@ let rec xlate_vernac =
 	   | fst::tacs1 ->
 	       CT_tactic_definition
 		 (CT_tac_def_ne_list(fst, tacs1)))
-   | VernacDeclareTacticDefinition(false, _) ->
-       xlate_error "obsolete tactic definition not handled"
+    | VernacDeclareTacticDefinition(_, false, _) ->
+	xlate_error "obsolete tactic definition not handled"
+    | VernacDeclareTacticDefinition(true, _, _) ->
+	xlate_error "TODO: Local keyword"
     | VernacLoad (verbose,s) ->
       CT_load (
        (match verbose with
-- 
cgit v1.2.3