diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/rawterm.ml | 2 | ||||
| -rw-r--r-- | pretyping/rawterm.mli | 2 | ||||
| -rw-r--r-- | pretyping/tacred.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml index 48b41444eb..054312ff34 100644 --- a/pretyping/rawterm.ml +++ b/pretyping/rawterm.ml @@ -350,7 +350,7 @@ type ('a,'b) red_expr_gen = | Unfold of 'b occurrences list | Fold of 'a list | Pattern of 'a occurrences list - | ExtraRedExpr of string * 'a + | ExtraRedExpr of string | CbvVm type ('a,'b) may_eval = diff --git a/pretyping/rawterm.mli b/pretyping/rawterm.mli index 0a582ef7bb..127eb1dc6d 100644 --- a/pretyping/rawterm.mli +++ b/pretyping/rawterm.mli @@ -123,7 +123,7 @@ type ('a,'b) red_expr_gen = | Unfold of 'b occurrences list | Fold of 'a list | Pattern of 'a occurrences list - | ExtraRedExpr of string * 'a + | ExtraRedExpr of string | CbvVm type ('a,'b) may_eval = diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 9f5dec3f34..cae0705c05 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -876,7 +876,7 @@ let reduction_of_redexp = function | Unfold ubinds -> unfoldn ubinds | Fold cl -> fold_commands cl | Pattern lp -> pattern_occs lp - | ExtraRedExpr (s,c) -> + | ExtraRedExpr s -> (try Stringmap.find s !red_expr_tab with Not_found -> error("unknown user-defined reduction \""^s^"\"")) | CbvVm -> cbv_vm |