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
Format.fprintf ppf "[DEBUG:compile]@.";
let t = Typer.typ tenv t
and pl = List.map (Typer.pat tenv) pl in
Patterns.Compile.debug_compile ppf t pl
(* Patterns.demo_compile ppf (Types.descr t) (List.map Patterns.descr pl) *)
(* Patterns.Compile.debug_compile ppf t pl *)
Patterns.demo_compile ppf (Types.descr t) (List.map Patterns.descr pl)
| `Explain (t,e) ->
Format.fprintf ppf "[DEBUG:explain]@.";
let t = Typer.typ tenv t in
......
......@@ -1198,7 +1198,7 @@ struct
match disp.label with
| None ->
let (some,none) = Types.Record.empty_cases t in
let some = aux some
let some =
if some then
let pl = Array.map (fun p -> match p.Normal.nrecord with
| 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