diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-04-07 13:02:07 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-04-07 13:02:07 +0000 |
| commit | a3008aedffce15c3af40aabc98cacbd734ff6a2f (patch) | |
| tree | b370db77e56da196aa5956bcd0d5b442e2624020 /pretyping | |
| parent | 0f6cf2c2332b704abe61854edb0aa4ef873dae0c (diff) | |
bug #606: mis un message d'erreur plus clair
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5653 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/tacred.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index c11f38c8f..8b34b5f8f 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -858,8 +858,9 @@ let reduction_of_redexp = function | Unfold ubinds -> unfoldn ubinds | Fold cl -> fold_commands cl | Pattern lp -> pattern_occs lp - | ExtraRedExpr (s,c) -> Stringmap.find s !red_expr_tab - + | ExtraRedExpr (s,c) -> + (try Stringmap.find s !red_expr_tab + with Not_found -> error("unknown user-defined reduction \""^s^"\"")) (* Used in several tactics. *) exception NotStepReducible |