summaryrefslogtreecommitdiff
path: root/parsing/ppconstr.ml
diff options
context:
space:
mode:
authorGravatar Samuel Mimram <samuel.mimram@ens-lyon.org>2005-01-31 14:34:14 +0000
committerGravatar Samuel Mimram <samuel.mimram@ens-lyon.org>2005-01-31 14:34:14 +0000
commit6497f27021fec4e01f2182014f2bb1989b4707f9 (patch)
tree473be7e63895a42966970ab6a70998113bc1bd59 /parsing/ppconstr.ml
parent6b649aba925b6f7462da07599fe67ebb12a3460e (diff)
Imported Upstream version 8.0pl2upstream/8.0pl2
Diffstat (limited to 'parsing/ppconstr.ml')
-rw-r--r--parsing/ppconstr.ml5
1 files changed, 2 insertions, 3 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml
index 6a5242e8..ddf008cb 100644
--- a/parsing/ppconstr.ml
+++ b/parsing/ppconstr.ml
@@ -6,7 +6,7 @@
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
-(* $Id: ppconstr.ml,v 1.32.2.1 2004/07/16 19:30:40 herbelin Exp $ *)
+(* $Id: ppconstr.ml,v 1.32.2.2 2004/12/29 10:17:11 herbelin Exp $ *)
(*i*)
open Ast
@@ -370,8 +370,7 @@ let pr_red_expr (pr_constr,pr_ref) = function
| Fold l -> hov 1 (str "Fold" ++ prlist (pr_arg pr_constr) l)
| Pattern l -> hov 1 (str "Pattern " ++ prlist (pr_occurrences pr_constr) l)
| Red true -> error "Shouldn't be accessible from user"
- | ExtraRedExpr (s,c) ->
- hov 1 (str s ++ pr_arg pr_constr c)
+ | ExtraRedExpr s -> str s
let rec pr_may_eval pr pr2 = function
| ConstrEval (r,c) ->