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

Typing bug fix.

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

2
compiler/global/global_printer.ml
View file

@ -73,7 +73,7 @@ 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"
| Tasync (a, t) -> fprintf ff "%a%a" print_async (Some a) print_type t
let print_field ff field =

2
compiler/global/types.ml
View file

@ -38,7 +38,7 @@ and ty =
let invalid_type = Tprod [] (** Invalid type given to untyped expression etc. *)
let prod = function
| [] -> assert false
| [] -> Tunit
| [ty] -> ty
| ty_list -> Tprod ty_list