From 8a6c8181ff3cde8b04af38ff8e185f85fc01a889 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 20 Jul 2004 16:21:13 +0000
Subject: Abstraction vis à vis de dummy_loc

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

diff --git a/parsing/argextend.ml4 b/parsing/argextend.ml4
index d0e12446e0..df48f5d8de 100644
--- a/parsing/argextend.ml4
+++ b/parsing/argextend.ml4
@@ -14,8 +14,8 @@ open Q_coqast
 open Ast
 
 let join_loc (deb1,_) (_,fin2) = (deb1,fin2)
-let loc = (0,0)
-let default_loc = <:expr< (0,0) >>
+let loc = Util.dummy_loc
+let default_loc = <:expr< Util.dummy_loc >>
 
 let rec make_rawwit loc = function
   | BoolArgType -> <:expr< Genarg.rawwit_bool >>
-- 
cgit v1.2.3