|
@@ -355,12 +355,6 @@ Current limitation: MethodContext instances are not created on Block evaluation.
|
|
|
|
|
|
!MethodContext methodsFor: 'accessing'!
|
|
!MethodContext methodsFor: 'accessing'!
|
|
|
|
|
|
-asString
|
|
|
|
- ^self isBlockContext
|
|
|
|
- ifTrue: [ 'a block (in ', self methodContext receiver class printString, ')' ]
|
|
|
|
- ifFalse: [ self receiver class printString, ' >> ', self selector ]
|
|
|
|
-!
|
|
|
|
-
|
|
|
|
home
|
|
home
|
|
<return self.methodContext || self.homeContext>
|
|
<return self.methodContext || self.homeContext>
|
|
!
|
|
!
|
|
@@ -411,6 +405,14 @@ temps
|
|
^ self locals
|
|
^ self locals
|
|
! !
|
|
! !
|
|
|
|
|
|
|
|
+!MethodContext methodsFor: 'converting'!
|
|
|
|
+
|
|
|
|
+asString
|
|
|
|
+ ^self isBlockContext
|
|
|
|
+ ifTrue: [ 'a block (in ', self methodContext receiver class printString, ')' ]
|
|
|
|
+ ifFalse: [ self receiver class printString, ' >> ', self selector ]
|
|
|
|
+! !
|
|
|
|
+
|
|
!MethodContext methodsFor: 'testing'!
|
|
!MethodContext methodsFor: 'testing'!
|
|
|
|
|
|
isBlockContext
|
|
isBlockContext
|