diff options
| author | herbelin | 2001-02-05 23:38:08 +0000 |
|---|---|---|
| committer | herbelin | 2001-02-05 23:38:08 +0000 |
| commit | 30cb11bb9091fbc0301acff61de8764b41ad91a8 (patch) | |
| tree | a87e8250e99d23b5d5e8ddeb35b27103d2de8cb2 | |
| parent | ee49451b4b4f507835752d38f89cb67abd4e2361 (diff) | |
Restructuration de classops; évolution en une version mieux intégrée au reste du système; conséquences collatérales
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1330 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/astterm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index e78ae3cd35..6f2385392b 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -199,7 +199,7 @@ let ref_from_constr c = match kind_of_term c with | IsEvar (ev,ctxt) -> REVar (ev, ast_to_constr_ctxt ctxt) | IsMutConstruct (csp,ctxt) -> RConstruct (csp, ast_to_constr_ctxt ctxt) | IsMutInd (isp,ctxt) -> RInd (isp, ast_to_constr_ctxt ctxt) - | IsVar id -> RVar id (* utilisé pour coe_value (tmp) *) + | IsVar id -> RVar id (* utilisé pour coercion_value (tmp) *) | _ -> anomaly "Not a reference" *) |