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

Original author: cvscast
Date: 2002-10-21 09:03:48+00:00

driver/cduce.ml

@@ -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

typing/typer.ml

@@ -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