bug fix in is_struct

This commit is contained in:
Léonard Gérard 2010-09-10 11:47:11 +02:00
parent 9cf0130512
commit eda43043d5

View file

@ -47,7 +47,7 @@ let rec vd_mem n = function
let is_record_type ty = match ty with
| Tid n ->
(match Modules.find_type n with
| Tenum _ -> true
| Tstruct _ -> true
| _ -> false)
| _ -> false