jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Bug fix in Typing.

Browse source
This commit is contained in:
Léonard Gérard 2011-02-14 16:28:50 +01:00
parent 51fea00808
commit 688e0bce71
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
compiler/global/global_printer.ml
View file

@ -48,7 +48,8 @@ and print_type ff = function
| Tid id -> print_qualname ff id
| Tarray (ty, n) ->
fprintf ff "@[<hov2>%a^%a@]" print_type ty print_static_exp n
| Tunit -> fprintf ff "()"
| Tunit -> fprintf ff "unit"
let print_field ff field =
fprintf ff "@[%a: %a@]" print_qualname field.f_name print_type field.f_type

2
compiler/global/types.ml
View file

@ -35,7 +35,7 @@ and ty =
let invalid_type = Tprod []
let prod = function
| [] -> assert false
| [] -> Tunit
| [ty] -> ty
| ty_list -> Tprod ty_list