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