diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-06-02 12:37:11 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-06-02 12:37:11 +0000 |
| commit | 8fe189045ece6f26cd3aa5399ed405e71b1de781 (patch) | |
| tree | 4d23712bfcbaaebb0970a49edd541ad3620848f4 /toplevel/vernacentries.ml | |
| parent | 8096b8167d02566658929217f4627142d98dc835 (diff) | |
Bugs/Messages d'erreurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@489 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernacentries.ml')
| -rw-r--r-- | toplevel/vernacentries.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 74c6440d8..638185682 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -120,7 +120,7 @@ let print_loadpath () = mSGNL [< 'sTR"Load Path:"; 'fNL; 'sTR" "; hV 0 (prlist_with_sep pr_fnl (fun s -> [< 'sTR s >]) l) >] -let get_goal_context_of_args = function +let get_current_context_of_args = function | [VARG_NUMBER n] -> get_goal_context n | [] -> get_current_context () | _ -> bad_vernac_args "goal_of_args" @@ -814,7 +814,7 @@ let _ = add "Eval" (function | VARG_TACTIC_ARG (Redexp redexp) :: VARG_CONSTR c :: g -> - let (evmap,sign) = get_goal_context_of_args g in + let (evmap,sign) = get_current_context_of_args g in let redfun = print_eval (reduction_of_redexp redexp) sign in fun () -> mSG (redfun (judgment_of_com evmap sign c)) | _ -> bad_vernac_args "Eval") @@ -823,7 +823,7 @@ let _ = add "Check" (function | VARG_STRING kind :: VARG_CONSTR c :: g -> - let (evmap, sign) = get_goal_context_of_args g in + let (evmap, sign) = get_current_context_of_args g in let prfun = match kind with | "CHECK" -> print_val | "PRINTTYPE" -> print_type |