diff options
author | 2000-03-08 21:38:18 +0000 | |
---|---|---|
committer | 2000-03-08 21:38:18 +0000 | |
commit | 707c8a91f5e443d02f3f8d7ac318e2d7b1720d5a (patch) | |
tree | 324f7b5df8b12eb9eb5042823bfdf53123b6c8c8 | |
parent | e4d70800bf92818b137fd91934cdf3c15844720d (diff) |
Réparation du cast oublié lors d'une définition castée
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@305 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | toplevel/command.ml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 1d20f928a..f73fc4f07 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -31,8 +31,14 @@ let mkProdCit = List.fold_right (fun (x,a) b -> mkProdC(x,a,b)) let constant_entry_of_com (com,comtypopt) = let sigma = Evd.empty in let env = Global.env() in - { const_entry_body = Cooked (constr_of_com sigma env com); - const_entry_type = option_app (constr_of_com1 true sigma env) comtypopt } + match comtypopt with + None -> + { const_entry_body = Cooked (constr_of_com sigma env com); + const_entry_type = None } + | Some comtyp -> + let typ = constr_of_com_sort sigma env comtyp in + { const_entry_body = Cooked (constr_of_com_casted sigma env com typ); + const_entry_type = Some typ } let red_constant_entry ce = function | None -> ce |