From 392300a73bc4e57d2be865d9a8d77c608ef02f59 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 29 May 2012 11:08:50 +0000
Subject: New files intf/constrexpr.mli and intf/notation_term.mli out of
 Topconstr

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15375 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/ppvernac.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'parsing/ppvernac.ml')

diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml
index 9f0cc4c031..2cbc0222b4 100644
--- a/parsing/ppvernac.ml
+++ b/parsing/ppvernac.ml
@@ -22,6 +22,7 @@ open Genarg
 open Pcoq
 open Libnames
 open Ppextend
+open Constrexpr
 open Topconstr
 open Decl_kinds
 open Tacinterp
@@ -752,7 +753,7 @@ let rec pr_vernac = function
 	++ (if redef then str" ::=" else str" :=") ++ brk(1,1) ++
 	let idl = List.map Option.get (List.filter (fun x -> not (x=None)) idl)in
         pr_raw_tactic_env
-	  (idl @ List.map coerce_reference_to_id
+	  (idl @ List.map Topconstr.coerce_reference_to_id
 	    (List.map (fun (x, _, _) -> x) (List.filter (fun (_, redef, _) -> not redef) l)))
 	  (Global.env())
 	  body in
-- 
cgit v1.2.3