diff options
| author | herbelin | 2001-10-11 17:27:20 +0000 |
|---|---|---|
| committer | herbelin | 2001-10-11 17:27:20 +0000 |
| commit | 301a70e45eac43f034077c95bce04edbcf2ab4ad (patch) | |
| tree | d61c92f0d7a46203618a4610301c64d65c9c03ad /pretyping/evarconv.ml | |
| parent | 1d5b3f16e202af2874181671abd86a47fca37cd7 (diff) | |
Suppression option immediate_discharge; nettoyage de Declare et conséquences
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2109 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarconv.ml')
| -rw-r--r-- | pretyping/evarconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index e221e49450..23bcfd8e45 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -310,7 +310,7 @@ and conv_record env isevars (c,bs,(xs,xs1),(us,us1),(ts,ts1),t) = and check_conv_record (t1,l1) (t2,l2) = try let {o_DEF=c;o_TABS=bs;o_TPARAMS=xs;o_TCOMPS=us} = - objdef_info (cte_of_constr t1,cte_of_constr t2) in + objdef_info (Declare.reference_of_constr t1, Declare.reference_of_constr t2) in let xs1,t,ts = match list_chop (List.length xs) l1 with | xs1,t::ts -> xs1,t,ts |