diff options
author | 2013-03-05 15:38:50 +0000 | |
---|---|---|
committer | 2013-03-05 15:38:50 +0000 | |
commit | 82b65b9c0296b20cca44c7c05865bf9750084ab8 (patch) | |
tree | 4c92bb422145327f655bf3d89f4bcea9039a4859 /grammar/argextend.ml4 | |
parent | 38ac6e0eff49662636e8db6ceb5f4badbdc7795a (diff) |
More monomorphization.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16260 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'grammar/argextend.ml4')
-rw-r--r-- | grammar/argextend.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/grammar/argextend.ml4 b/grammar/argextend.ml4 index 4d9904694..7aacfa24e 100644 --- a/grammar/argextend.ml4 +++ b/grammar/argextend.ml4 @@ -123,7 +123,7 @@ let possibly_empty_subentries loc (prods,act) = | Some id -> let s = Names.Id.to_string id in <:expr< let $lid:s$ = $v$ in $e$ >> in let rec aux = function - | [] -> <:expr< let loc = $default_loc$ in let _ = loc = loc in $act$ >> + | [] -> <:expr< let loc = $default_loc$ in let _ = loc in $act$ >> | GramNonTerminal(_,OptArgType _,_,p) :: tl -> bind_name p <:expr< None >> (aux tl) | GramNonTerminal(_,List0ArgType _,_,p) :: tl -> |