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

bug fix in is_struct

Browse source
This commit is contained in:
Léonard Gérard 2010-09-10 11:47:11 +02:00
parent 9cf0130512
commit eda43043d5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/minils/mls_utils.ml
View file

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