Commits

Ryan Macnak committed ac13009

Some changes for ActivationMirrors to be happy with both old and new mixin representation

  • Participants
  • Parent commits 8c3f6da

Comments (0)

Files changed (1)

File ActivationMirrors.ns3

 	^definingClass_slot
 )
 definingClassOf: cls = (
-	| defcls |
-	defcls:: (SystemMetadata systemMetadataOf: cls theNonMetaClass) definingClass.
-	^cls == cls theNonMetaClass
-		ifTrue: [defcls]
-		ifFalse: [defcls class]
+	^cls mixin definingClass
 )
 errorReportOn: stream = (
 	context_slot errorReportOn: stream
 		inMixin: mxn declaration. 
 		
 	mtdMirror metadata at: #category put: 'DoIts'.
-	mtdMirror klass: cls.
+	mtdMirror klass: cls mixin definingClass.
 	
 	result:: mirrors vmmirror 
 		object: receiver