diff options
author | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-24 13:57:14 +0000 |
---|---|---|
committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-24 13:57:14 +0000 |
commit | 34617b76319dc86df6bf9b278aecbe25ad5d16d8 (patch) | |
tree | 9e5b677ed6fb0efb8b0e44895d51c02136fab983 | |
parent | 50d43d36a1c6e1aa0704d004fcac1ef5def50e05 (diff) |
Changement du message d'erreur pour l'interpreteur de tactiques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2059 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | proofs/tacinterp.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml index cb1fb9414..a68566d72 100644 --- a/proofs/tacinterp.ml +++ b/proofs/tacinterp.ml @@ -915,7 +915,10 @@ and tac_interp lfun lmatch debug ast g = try tactic_of_value (val_interp ist ast) g with | NotTactic -> errorlabstrm "Tacinterp.tac_interp" [<'sTR - "Interpretation gives a non-tactic value">] + "Must be a command or must give a tactic value">] + +(* errorlabstrm "Tacinterp.tac_interp" [<'sTR + "Interpretation gives a non-tactic value">] *) (* match (val_interp (evc,env,lfun,lmatch,(Some g),debug) ast) with | VTactic tac -> (tac g) |