diff --git a/src/Fame-Core/FM3Class.class.st b/src/Fame-Core/FM3Class.class.st index fb0a2416..e162848d 100644 --- a/src/Fame-Core/FM3Class.class.st +++ b/src/Fame-Core/FM3Class.class.st @@ -171,13 +171,6 @@ FM3Class >> isFM3Class [ ^ true ] -{ #category : 'testing' } -FM3Class >> isPrimitive [ - - - ^ false -] - { #category : 'testing' } FM3Class >> isRoot [ diff --git a/src/Fame-Core/FM3Trait.class.st b/src/Fame-Core/FM3Trait.class.st index 5fcb67f2..7e75c54d 100644 --- a/src/Fame-Core/FM3Trait.class.st +++ b/src/Fame-Core/FM3Trait.class.st @@ -113,14 +113,6 @@ FM3Trait >> isFM3Trait [ ^ true ] -{ #category : 'testing' } -FM3Trait >> isPrimitive [ - - - - ^ false -] - { #category : 'testing' } FM3Trait >> isRoot [ diff --git a/src/Fame-Core/FM3Type.class.st b/src/Fame-Core/FM3Type.class.st index 09328c92..6dc41f28 100644 --- a/src/Fame-Core/FM3Type.class.st +++ b/src/Fame-Core/FM3Type.class.st @@ -82,6 +82,13 @@ FM3Type >> initialize [ traits := Set new ] +{ #category : 'testing' } +FM3Type >> isPrimitive [ + + + ^ false +] + { #category : 'accessing' } FM3Type >> package [