diff options
| author | herbelin | 2003-06-23 21:32:50 +0000 |
|---|---|---|
| committer | herbelin | 2003-06-23 21:32:50 +0000 |
| commit | 66180a27fa62c4de9fb2c6c85058ca5b17f48e4b (patch) | |
| tree | c2879caf1731e02de421dc68f6a72464b932e2e6 | |
| parent | ba590f7999274898a68a2d7ce77001ff644b1da1 (diff) | |
Formattage pattern 'match'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4200 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | translate/ppconstrnew.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index dcaa82e70e..f8af132561 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -129,7 +129,7 @@ let rec pr_patt inh p = let pr_eqn pr (_,pl,rhs) = spc() ++ hov 4 (str "| " ++ - hv 0 (prlist_with_sep sep_v (pr_patt ltop) pl ++ str " =>") ++ + hov 0 (prlist_with_sep sep_v (pr_patt ltop) pl ++ str " =>") ++ spc() ++ pr ltop rhs) |