diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-17 13:48:01 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-17 13:48:01 +0000 |
| commit | 2a23ee437342bc6b29634666b5c3431607a549bb (patch) | |
| tree | 326cfc0c2672486215078f1e452a39905923d97d | |
| parent | 435e5f3eda748e52d347cf91f44b0d008e2f2d12 (diff) | |
Suppression d'un cas particulier de pretty-print, qui rend la sortie trop ambigue
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4926 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | bytecomp/printlambda.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/bytecomp/printlambda.ml b/bytecomp/printlambda.ml index 1684d4104..fac910c61 100644 --- a/bytecomp/printlambda.ml +++ b/bytecomp/printlambda.ml @@ -291,8 +291,6 @@ let rec lam ppf = function and sequence ppf = function | Lsequence(l1, l2) -> fprintf ppf "%a@ %a" sequence l1 sequence l2 - | Llet(str, id, arg, body) -> - fprintf ppf "@[<2>let@ %a@ %a@]@ %a" Ident.print id lam arg sequence body | l -> lam ppf l |