From eda43043d5163be3b8128c0f244112296e012cc5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?L=C3=A9onard=20G=C3=A9rard?= <leonard.gerard@ens.fr>
Date: Fri, 10 Sep 2010 11:47:11 +0200
Subject: [PATCH] bug fix in is_struct

---
 compiler/minils/mls_utils.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/minils/mls_utils.ml b/compiler/minils/mls_utils.ml
index faa7685..e812e08 100644
--- a/compiler/minils/mls_utils.ml
+++ b/compiler/minils/mls_utils.ml
@@ -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