Added missing boolean case in MiniLS' print_type.

This commit is contained in:
Adrien Guatto 2010-06-22 13:37:08 +02:00 committed by Léonard Gérard
parent 0a65964ee6
commit 206605a707

View file

@ -182,6 +182,7 @@ struct
let rec print_type ff = function let rec print_type ff = function
| Tint -> fprintf ff "int" | Tint -> fprintf ff "int"
| Tfloat -> fprintf ff "float" | Tfloat -> fprintf ff "float"
| Tbool -> fprintf ff "bool"
| Tid(id) -> print_longname ff id | Tid(id) -> print_longname ff id
| Tarray(ty, n) -> | Tarray(ty, n) ->
print_type ff ty; print_type ff ty;