diff options
| author | barras | 2002-02-14 15:54:01 +0000 |
|---|---|---|
| committer | barras | 2002-02-14 15:54:01 +0000 |
| commit | 909d7c9edd05868d1fba2dae65e6ff775a41dcbe (patch) | |
| tree | 7a9c1574e278535339336290c1839db09090b668 /toplevel/command.ml | |
| parent | 67f72c93f5f364591224a86c52727867e02a8f71 (diff) | |
- Reforme de la gestion des args recursifs (via arbres reguliers)
- coqtop -byte -opt bouclait!
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2475 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 4a517144ec..e34d6b9199 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -204,8 +204,7 @@ let interp_mutual lparams lnamearconstrs finite = List.map (interp_type_with_implicits sigma ind_env_params ind_impls) bodies in - { mind_entry_nparams = nparams; - mind_entry_params = params'; + { mind_entry_params = params'; mind_entry_typename = name; mind_entry_arity = ar; mind_entry_consnames = constrnames; |