Hi Clément,
I've written code like this:
(atEachStepBlock isNil or: [atEachStepBlock method ~~ thisContext
method]) ifTrue:
[...
where the intent is to see if a block is the one created by the current
method or not. This won't work for full blocks. But at least in my Squeak
code and the Pharo7 image as of today there's no accessor for the "home
method" yet. I expect we should be able to write
(atEachStepBlock isNil or: [atEachStepBlock homeMethod ~~
thisContext homeMethod]) ifTrue:
[...
where homeMethod is defined as
CompiledCode>>homeMethod
^self subclassResponsibility
CompiledMethod>>homeMethod
^self
CompiledBlock>>homeMethod
^self outerCode homeMethod
Context>>homeMethod
^method homeMethod
BlockClosure>>homeMethod
^outerContext homeMethod
_,,,^..^,,,_
best, Eliot