Commit 258ce52d authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2002-10-21 09:03:48 by cvscast] Empty log message

Original author: cvscast
Date: 2002-10-21 09:03:48+00:00
parent f9b35132
......@@ -39,8 +39,8 @@ let rec print_exn ppf = function
| Typer.WrongLabel (t,l) ->
Format.fprintf ppf "Wrong record selection: the label %s@\n"
(Types.label_name l);
(* Format.fprintf ppf "applied to an expression of type %a@\n"
(Types.Print.print_descr t) *)
Format.fprintf ppf "applied to an expression of type %a@\n"
Types.Print.print_descr t
| Typer.ShouldHave (t,msg) ->
Format.fprintf ppf "This expression should have type %a@\n%s@\n"
Types.Print.print_descr t
......
......@@ -330,7 +330,7 @@ let rec expr { loc = loc; descr = d } =
(Fv.union fv1 fv2, Typed.Pair (e1,e2))
| Dot (e,l) ->
let (fv,e) = expr e in
(Fv.union Fv.empty fv, Typed.Dot (e,l))
(fv, Typed.Dot (e,l))
| RecordLitt r ->
(* XXX TODO: check that no label appears twice *)
let fv = ref Fv.empty in
......
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