From ea85f46dc0cc34db149c24bb2da8f3130e191fc1 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 11 Sep 2009 17:53:30 +0000
Subject: Generalized the possibility to refer to a global name by a notation
 string in most commands expecting a global name (e.g. 'Print "+"' for an
 infix notation or 'Print "{ _ } + { _ }"' for a misfix notation, possibly
 surrounded by a scope delimiter). Support for such smart globals in VERNAC
 EXTEND to do.

Added a file smartlocate.ml for high-level globalization functions.

Mini-nettoyage metasyntax.ml.



git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12323 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/setoid_ring/newring.ml4 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'plugins/setoid_ring')

diff --git a/plugins/setoid_ring/newring.ml4 b/plugins/setoid_ring/newring.ml4
index 6d1ed511b7..14d10e54f6 100644
--- a/plugins/setoid_ring/newring.ml4
+++ b/plugins/setoid_ring/newring.ml4
@@ -623,7 +623,7 @@ let interp_cst_tac env sigma rk kind (zero,one,add,mul,opp) cst_tac =
   match cst_tac with
       Some (CstTac t) -> Tacinterp.glob_tactic t
     | Some (Closed lc) ->
-        closed_term_ast (List.map Syntax_def.global_with_alias lc)
+        closed_term_ast (List.map Smartlocate.global_with_alias lc)
     | None ->
         (match rk, opp, kind with
             Abstract, None, _ ->
@@ -667,7 +667,7 @@ let interp_power env pow =
         match tac with
         | CstTac t -> Tacinterp.glob_tactic t
         | Closed lc ->
-            closed_term_ast (List.map Syntax_def.global_with_alias lc) in
+            closed_term_ast (List.map Smartlocate.global_with_alias lc) in
       let spec = make_hyp env (ic spec) in
       (tac, lapp coq_Some [|carrier; spec|])
 
-- 
cgit v1.2.3