diff options
author | 2006-07-13 14:28:31 +0000 | |
---|---|---|
committer | 2006-07-13 14:28:31 +0000 | |
commit | 03b9147d4a2d9467a26b3337d843226f50aa5504 (patch) | |
tree | 1b22245e245d533f9a413b2ae960959833fc0f52 /parsing/ppconstr.ml | |
parent | 0df132d1c1cd28db10b4ee664230f8043e9006b9 (diff) | |
parent | de0085539583f59dc7c4bf4e272e18711d565466 (diff) |
Merge commit 'upstream/8.0pl3+8.1beta.2' into 8.1
Diffstat (limited to 'parsing/ppconstr.ml')
-rw-r--r-- | parsing/ppconstr.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index d55a6c1e..a1ca386e 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: ppconstr.ml 8878 2006-05-30 16:44:25Z herbelin $ *) +(* $Id: ppconstr.ml 8997 2006-07-03 16:40:20Z herbelin $ *) (*i*) open Util @@ -186,12 +186,12 @@ let rec pr_patt sep inh p = let pr_patt = pr_patt mt - let pr_eqn pr (loc,pl,rhs) = spc() ++ hov 4 (pr_with_comments loc (str "| " ++ - hov 0 (prlist_with_sep sep_v (pr_patt ltop) pl ++ str " =>") ++ + hov 0 (prlist_with_sep pr_bar (prlist_with_sep sep_v (pr_patt ltop)) pl + ++ str " =>") ++ pr_sep_com spc (pr ltop) rhs)) let begin_of_binder = function @@ -384,6 +384,8 @@ let pr_fixdecl pr prd dangling_with_for (id,(n,ro),bl,t,c) = else mt() | CWfRec c -> spc () ++ str "{wf " ++ pr lsimple c ++ pr_name (snd (List.nth ids (out_some n))) ++ str"}" + | CMeasureRec c -> + spc () ++ str "{measure " ++ pr lsimple c ++ pr_name (snd (List.nth ids (out_some n))) ++ str"}" in pr_recursive_decl pr prd dangling_with_for id bl annot t c |