diff options
| author | herbelin | 2004-07-20 16:21:13 +0000 |
|---|---|---|
| committer | herbelin | 2004-07-20 16:21:13 +0000 |
| commit | 8a6c8181ff3cde8b04af38ff8e185f85fc01a889 (patch) | |
| tree | 9843c0f54ae4a34a8398189daa0b88b7b6d165c8 | |
| parent | c82aa106f07aa69a1233854db938cdbfd43006d7 (diff) | |
Abstraction vis à vis de dummy_loc
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5961 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/argextend.ml4 | 4 |
1 files 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 >> |