diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-08-13 16:20:47 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-08-13 16:20:47 +0000 |
| commit | 45134de9fd50a1285d75f5891e376eae09fdd20a (patch) | |
| tree | 5e80fb25c3065ba1489d513cc09a695fb7da8d51 /toplevel/discharge.ml | |
| parent | 5c668276b37f09077231c314b03254df6dce3c48 (diff) | |
Renoncement à distinguer les types "constr" et "types"; nettoyage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2963 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/discharge.ml')
| -rw-r--r-- | toplevel/discharge.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 93277300b..26cf3083c 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -209,7 +209,7 @@ let process_object oldenv olddir full_olddir newdir match c with | None -> SectionLocalAssum - (expmod_constr oldenv work_alist (body_of_type t)) + (expmod_constr oldenv work_alist t) | Some body -> SectionLocalDef (expmod_constr oldenv work_alist body) |