From 38f06f8024d3f338983105ffdb323ccd7c0db935 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sun, 2 Jan 2005 08:48:46 +0000 Subject: Renommage symbols.ml{,i} en notation.ml{,i} pour permettre le chargement de printers dans ocamldebug; partie reduction_of_red_expr de tacred.ml qui dépend de la vm maintenant dans redexpr.ml MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6550 85f007b7-540e-0410-9357-904b9bb8a0f7 --- toplevel/command.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'toplevel/command.ml') diff --git a/toplevel/command.ml b/toplevel/command.ml index a7f39f053..42e18fadc 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -18,7 +18,7 @@ open Entries open Inductive open Environ open Reduction -open Tacred +open Redexpr open Declare open Nametab open Names @@ -37,7 +37,7 @@ open Indtypes open Vernacexpr open Decl_kinds open Pretyping -open Symbols +open Notation let mkLambdaCit = List.fold_right (fun (x,a) b -> mkLambdaC(x,a,b)) let mkProdCit = List.fold_right (fun (x,a) b -> mkProdC(x,a,b)) @@ -124,7 +124,7 @@ let red_constant_entry bl ce = function | Some red -> let body = ce.const_entry_body in { ce with const_entry_body = - under_binders (Global.env()) (reduction_of_redexp red) + under_binders (Global.env()) (reduction_of_red_expr red) (length_of_raw_binders bl) body } -- cgit v1.2.3