diff options
Diffstat (limited to 'parsing/ppconstr.ml')
| -rw-r--r-- | parsing/ppconstr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index fbee5ff274..76430e1c45 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -132,7 +132,7 @@ let pr_red_expr (pr_constr,pr_ref) = function | Pattern l -> hov 1 (str "Pattern" ++ prlist(fun (nl,c) -> prlist (pr_arg int) nl ++ (pr_arg pr_constr) c) l) - | (Red true | Cbv _ | Lazy _) -> error "Shouldn't be accessible from user" + | Red true -> error "Shouldn't be accessible from user" | ExtraRedExpr (s,c) -> hov 1 (str s ++ pr_arg pr_constr c) |