diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-12 21:07:49 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-12 21:07:49 +0000 |
| commit | f3376db665463fa75631f001321a090165c44da1 (patch) | |
| tree | ce836fb16e81228c64a53cc527d4bfac1cdb59d4 /tactics/tacinterp.ml | |
| parent | bea2a4f5fe5cab0abfc27492117c335a311a0c19 (diff) | |
Added Genarg as generic argument type.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16575 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacinterp.ml')
| -rw-r--r-- | tactics/tacinterp.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 82354c815..4847362d3 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1561,6 +1561,8 @@ and interp_genarg ist gl x = in_gen (topwit wit_var) (interp_hyp ist gl (out_gen (glbwit wit_var) x)) | RefArgType -> in_gen (topwit wit_ref) (pf_interp_reference ist gl (out_gen (glbwit wit_ref) x)) + | GenArgType -> + in_gen (topwit wit_genarg) (interp_genarg ist gl (out_gen (glbwit wit_genarg) x)) | SortArgType -> let (sigma,c_interp) = pf_interp_constr ist gl @@ -2057,7 +2059,7 @@ and interp_atomic ist gl tac = tac args ist | TacAlias (loc,s,l,(_,body)) -> fun gl -> let evdref = ref gl.sigma in - let f x = match genarg_tag x with + let rec f x = match genarg_tag x with | IntArgType -> of_tacvalue (VInteger (out_gen (glbwit wit_int) x)) | IntOrVarArgType -> @@ -2075,6 +2077,7 @@ and interp_atomic ist gl tac = | RefArgType -> of_tacvalue (VConstr ([],constr_of_global (pf_interp_reference ist gl (out_gen (glbwit wit_ref) x)))) + | GenArgType -> f (out_gen (glbwit wit_genarg) x) | SortArgType -> of_tacvalue (VConstr ([],mkSort (interp_sort (out_gen (glbwit wit_sort) x)))) | ConstrArgType -> |