diff options
| author | jforest | 2006-08-22 09:43:51 +0000 |
|---|---|---|
| committer | jforest | 2006-08-22 09:43:51 +0000 |
| commit | 908a2269893046eada0e51a88aa7fdd5ced227ea (patch) | |
| tree | eb788e063399e6e38c254f31323235872f941357 | |
| parent | 24f9e6fad117fc9e0aca42beb60c45763b0d0903 (diff) | |
making otags working
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9075 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/interface/xlate.ml | 8 | ||||
| -rw-r--r-- | parsing/ppvernac.ml | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index f2385e7f23..b231a48bfd 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -1093,12 +1093,12 @@ and xlate_tac = let first_n = match out_gen (wit_opt rawwit_int_or_var) nopt with | Some (ArgVar(_, s)) -> xlate_id_to_id_or_int_opt s - | Some ArgArg n -> xlate_int_to_id_or_int_opt n + | Some (ArgArg n) -> xlate_int_to_id_or_int_opt n | None -> none_in_id_or_int_opt in let second_n = match out_gen (wit_opt rawwit_int_or_var) popt with | Some (ArgVar(_, s)) -> xlate_id_to_id_or_int_opt s - | Some ArgArg n -> xlate_int_to_id_or_int_opt n + | Some (ArgArg n) -> xlate_int_to_id_or_int_opt n | None -> none_in_id_or_int_opt in let _lems = match out_gen Eauto.rawwit_auto_using lems with @@ -1785,8 +1785,8 @@ let rec xlate_vernac = | VernacShow ShowScript -> CT_show_script | VernacShow(ShowMatch _) -> xlate_error "TODO: VernacShow(ShowMatch _)" | VernacGo arg -> CT_go (xlate_locn arg) - | VernacShow ExplainProof l -> CT_explain_proof (nums_to_int_list l) - | VernacShow ExplainTree l -> + | VernacShow (ExplainProof l) -> CT_explain_proof (nums_to_int_list l) + | VernacShow (ExplainTree l) -> CT_explain_prooftree (nums_to_int_list l) | VernacCheckGuard -> CT_guarded | VernacPrint p -> diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index 8e7af67b0c..b3a8abce55 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -820,7 +820,7 @@ let rec pr_vernac = function (* For extension *) | VernacExtend (s,c) -> pr_extend s c - | VernacProof Tacexpr.TacId _ -> str "Proof" + | VernacProof (Tacexpr.TacId _) -> str "Proof" | VernacProof te -> str "Proof with" ++ spc() ++ pr_raw_tactic te and pr_extend s cl = |