Commit b4b6631d authored by Raphaël Cauderlier's avatar Raphaël Cauderlier
Browse files

[FIX] Type of select is not type of selected object

parent eb338645
......@@ -56,7 +56,7 @@ let rec print_term out_fmter : tterm -> unit = function
print_object ty out_fmter ll
| Tsel (t, l, ty) ->
Format.fprintf out_fmter "@[ (%a)@ (%a)@ (%a)@]"
print_ty ty
print_ty (infer t)
print_term t
print_label l
| Tupd (t, l, m, ty) ->
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