Merge pull request #859 from jecisc/speedup-isRoot

Speedup #isRoot

src/Moose-Query/TEntityMetaLevelDependency.trait.st

@@ -707,12 +707,15 @@ TEntityMetaLevelDependency >> isQueryable [
 
 { #category : #testing }
 TEntityMetaLevelDependency >> isRoot [
+	"Old implementation: self parents isEmpty
+	This implementation is faster."
 
 	<FMProperty: #isRoot type: #Boolean>
 	<derived>
 	<FMComment:
 	'An entity is root if it has no parent in the model. This is useful for example to be able to build visualization where the displayed elements are the roots of the model and to let those elements be expanded to display their children.'>
-	^ self parents isEmpty
+	self parentsDo: [ :parent | ^ false ].
+	^ true
 ]
 
 { #category : #accessing }