diff options
| author | herbelin | 2002-09-27 13:41:46 +0000 |
|---|---|---|
| committer | herbelin | 2002-09-27 13:41:46 +0000 |
| commit | cd8b65e09278778c95ea4f8bc03b96ec4d9cafcf (patch) | |
| tree | 77aa32e4e8623aea578fbcc514ecd721a52f613e /parsing/ppconstr.ml | |
| parent | 2069ddbed501da4f24203d3fb92187e012ab582d (diff) | |
passage a ocaml 3.06
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3041 85f007b7-540e-0410-9357-904b9bb8a0f7
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) |