X-Git-Url: http://nitlanguage.org

diff --git a/src/model_utils.nit b/src/model_utils.nit
index 1466d52..24105e6 100644
--- a/src/model_utils.nit
+++ b/src/model_utils.nit
@@ -34,7 +34,7 @@ redef class MConcern
 end
 
 redef class MProject
-	redef fun concern_rank is cached do
+	redef var concern_rank is lazy do
 		var max = 0
 		for mgroup in mgroups do
 			var mmax = mgroup.concern_rank
@@ -87,7 +87,7 @@ redef class MGroup
 		return res
 	end
 
-	redef fun concern_rank is cached do
+	redef var concern_rank is lazy do
 		var max = 0
 		for mmodule in collect_mmodules do
 			var mmax = mmodule.concern_rank
@@ -163,45 +163,7 @@ redef class MModule
 		return mclasses
 	end
 
-	fun in_nesting_intro_mclasses(min_visibility: MVisibility): Set[MClass] do
-		var res = new HashSet[MClass]
-		for mmodule in in_nesting.greaters do
-			for mclass in mmodule.filter_intro_mclasses(min_visibility) do
-				if mclass.visibility < min_visibility then continue
-				res.add mclass
-			end
-		end
-		return res
-	end
-
-	fun in_nesting_redef_mclasses(min_visibility: MVisibility): Set[MClass] do
-		var res = new HashSet[MClass]
-		for mmodule in self.in_nesting.greaters do
-			for mclass in mmodule.filter_redef_mclasses(min_visibility) do
-				if mclass.visibility < min_visibility then continue
-				res.add mclass
-			end
-		end
-		return res
-	end
-
-	fun in_nesting_intro_mclassdefs(min_visibility: MVisibility): Set[MClassDef] do
-		var res = new HashSet[MClassDef]
-		for mmodule in in_nesting.greaters do
-			res.add_all mmodule.intro_mclassdefs(min_visibility)
-		end
-		return res
-	end
-
-	fun in_nesting_redef_mclassdefs(min_visibility: MVisibility): Set[MClassDef] do
-		var res = new HashSet[MClassDef]
-		for mmodule in self.in_nesting.greaters do
-			res.add_all mmodule.redef_mclassdefs(min_visibility)
-		end
-		return res
-	end
-
-	redef fun concern_rank is cached do
+	redef var concern_rank is lazy do
 		var max = 0
 		for p in in_importation.direct_greaters do
 			var pmax = p.concern_rank