diff options
| author | msozeau | 2008-09-15 17:21:39 +0000 |
|---|---|---|
| committer | msozeau | 2008-09-15 17:21:39 +0000 |
| commit | c408060c9363eac5ff51f9a1fe8b510b1628c9f9 (patch) | |
| tree | 3038c812ee8f27f4e4bb60a5b8206b045067b70b /contrib/interface | |
| parent | 3c97392d5acbaddad6714fa097ff4ec7bb3e6d29 (diff) | |
Fix bug #1943 and restrict the inference optimisation of Program to
cases where coercion could not occur as well.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11414 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 11d8d7a0b4..3421125369 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -1737,6 +1737,8 @@ let rec xlate_vernac = (fst::rest) -> CT_formula_ne_list(fst,rest) | _ -> assert false in CT_hintrewrite(ct_orient, f_ne_list, CT_ident base, xlate_tactic t) + | VernacCreateHintDb (local,dbname,b) -> + xlate_error "TODO: VernacCreateHintDb" | VernacHints (local,dbnames,h) -> let dblist = CT_id_list(List.map (fun x -> CT_ident x) dbnames) in (match h with |