Commit d580109f authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-12-27 16:10:37 by afrisch] typo

Original author: afrisch
Date: 2004-12-27 16:10:37+00:00
parent 0465fa5d
...@@ -194,8 +194,8 @@ let debug ppf tenv cenv = function ...@@ -194,8 +194,8 @@ let debug ppf tenv cenv = function
Format.fprintf ppf "[DEBUG:compile]@."; Format.fprintf ppf "[DEBUG:compile]@.";
let t = Typer.typ tenv t let t = Typer.typ tenv t
and pl = List.map (Typer.pat tenv) pl in and pl = List.map (Typer.pat tenv) pl in
Patterns.Compile.debug_compile ppf t pl (* Patterns.Compile.debug_compile ppf t pl *)
(* Patterns.demo_compile ppf (Types.descr t) (List.map Patterns.descr pl) *) Patterns.demo_compile ppf (Types.descr t) (List.map Patterns.descr pl)
| `Explain (t,e) -> | `Explain (t,e) ->
Format.fprintf ppf "[DEBUG:explain]@."; Format.fprintf ppf "[DEBUG:explain]@.";
let t = Typer.typ tenv t in let t = Typer.typ tenv t in
......
...@@ -1198,7 +1198,7 @@ struct ...@@ -1198,7 +1198,7 @@ struct
match disp.label with match disp.label with
| None -> | None ->
let (some,none) = Types.Record.empty_cases t in let (some,none) = Types.Record.empty_cases t in
let some = aux some let some =
if some then if some then
let pl = Array.map (fun p -> match p.Normal.nrecord with let pl = Array.map (fun p -> match p.Normal.nrecord with
| Normal.RecNolabel (Some x,_) -> [x] | Normal.RecNolabel (Some x,_) -> [x]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment