Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-jar.1502.mcz
==================== Summary ====================
Name: Kernel-jar.1502 Author: jar Time: 15 February 2023, 4:58:07.875244 pm UUID: 14e0c30b-c6a4-7a4f-b869-3cc2e605eef6 Ancestors: Kernel-eem.1498
make Context #methodReturnContexts a synonym of #home; make BlockClosure and FullBlockClosure #homeMethod synonyms of #method
(current code makes it rather difficult to realize #homeMethod and #method are actually synonymous)
=============== Diff against Kernel-eem.1498 ===============
Item was changed: ----- Method: BlockClosure>>homeMethod (in category 'accessing') ----- homeMethod + "Answer the home method associated with the receiver. + This is polymorphic with BlockClosure, CompiledCode, Context etc." + + ^self method! - ^outerContext method!
Item was removed: - ----- Method: CompiledBlock>>homeMethod (in category 'accessing') ----- - homeMethod - "answer the compiled method that I am installed in, or nil if none." - ^self outerCode homeMethod!
Item was changed: ----- Method: CompiledCode>>homeMethod (in category 'accessing') ----- homeMethod + "Answer the home method associated with the receiver. + This is polymorphic with BlockClosure, CompiledCode, Context etc." - "Answer the home method associated with the receiver."
+ ^self method! - ^self subclassResponsibility!
Item was removed: - ----- Method: CompiledMethod>>homeMethod (in category 'accessing') ----- - homeMethod - "Answer the home method associated with the receiver. - This is polymorphic with closure, CompiledBlock, Context etc" - - ^self!
Item was changed: ----- Method: Context>>homeMethod (in category 'accessing') ----- homeMethod "Answer the home method associated with the receiver. + This is polymorphic with BlockClosure, CompiledCode, Context etc." + + ^self method! - This is polymorphic with BlockClosure, CompiledCode, etc" - ^method homeMethod!
Item was changed: ----- Method: Context>>methodReturnContext (in category 'accessing') ----- methodReturnContext "Answer the context from which an ^-return should return from."
+ ^self home! - closureOrNil == nil ifTrue: - [^self]. - ^closureOrNil outerContext methodReturnContext!
Item was removed: - ----- Method: FullBlockClosure>>homeMethod (in category 'accessing') ----- - homeMethod - ^startpcOrMethod homeMethod!
packages@lists.squeakfoundation.org