diff options
| -rw-r--r-- | parsing/g_proofs.ml4 | 6 | ||||
| -rw-r--r-- | translate/ppvernacnew.ml | 8 |
2 files changed, 8 insertions, 6 deletions
diff --git a/parsing/g_proofs.ml4 b/parsing/g_proofs.ml4 index f6801bf317..7fba1f2799 100644 --- a/parsing/g_proofs.ml4 +++ b/parsing/g_proofs.ml4 @@ -116,9 +116,11 @@ GEXTEND Gram ; hints: [ [ IDENT "Resolve"; l = LIST1 global; dbnames = opt_hintbases -> - (dbnames, HintsResolve (List.map (fun qid -> (None, CRef qid)) l)) + (dbnames, + HintsResolve (List.map (fun qid -> (None, CAppExpl(loc,qid,[]))) l)) | IDENT "Immediate"; l = LIST1 global; dbnames = opt_hintbases -> - (dbnames, HintsImmediate (List.map (fun qid -> (None, CRef qid)) l)) + (dbnames, + HintsImmediate (List.map (fun qid-> (None, CAppExpl (loc,qid,[]))) l)) | IDENT "Unfold"; l = LIST1 global; dbnames = opt_hintbases -> (dbnames, HintsUnfold (List.map (fun qid -> (None,qid)) l)) ] ] ; diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index e6b306be2e..de0abed002 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -112,10 +112,10 @@ let pr_printoption a b = match a with let pr_set_option a b = let pr_opt_value = function - | IntValue n -> int n - | StringValue s -> str s + | IntValue n -> spc() ++ int n + | StringValue s -> spc() ++ str s | BoolValue b -> mt() - in pr_printoption a None ++ spc() ++ pr_opt_value b + in pr_printoption a None ++ pr_opt_value b let pr_topcmd _ = str"(* <Warning> : No printer for toplevel commands *)" @@ -135,7 +135,7 @@ let pr_hints db h pr_c = | Some name,_ -> (true , pr_id name) in let opth = pr_opt_hintbases db in let pr_aux = function - | CRef qid -> pr_reference qid + | CAppExpl (_,qid,[]) -> pr_reference qid | _ -> mt () in match h with | HintsResolve l -> |