Collect only modules contained in self.root

Property definitions

nitc :: model_collect $ MPackage :: collect_mmodules
	# Collect only modules contained in `self.root`
	fun collect_mmodules(filter: nullable ModelFilter): HashSet[MModule] do
		var res = new HashSet[MModule]
		var root = self.root
		if root == null then return res
		res.add_all root.collect_mmodules(filter)
		return res
	end
src/model/model_collect.nit:319,2--326,4