--- a/BlockContext.st Tue May 28 00:23:55 2013 +0100
+++ b/BlockContext.st Fri May 31 00:35:21 2013 +0100
@@ -127,13 +127,15 @@
|con h|
+ home isNil ifTrue:[^ nil].
home isContext ifFalse:[^ nil]. "copying blocks have no method home"
+ con := self.
h := home.
- [
+ [h notNil] whileTrue:[
con := h.
h := con home
- ] doWhile:[h notNil].
+ ].
^ con
!
@@ -167,7 +169,7 @@
|cls who mHome m className sel homeSel|
- home isContext ifFalse:[
+ (home isNil or:[home isContext not]) ifTrue:[
"
mhmh - an optimized blocks context
should get the block here, and get the method from
@@ -252,10 +254,10 @@
!BlockContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.36 2013-05-07 13:23:42 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.37 2013-05-24 17:11:15 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.36 2013-05-07 13:23:42 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.37 2013-05-24 17:11:15 cg Exp $'
! !