> �get a copy of the IR tree"
> irMethod := (TestMy>>#test) ir copy.
>
> �get all instance variable access IR instructions�
> allIvarAccesses := �irMethod allInstructionsMatching: [ :ir |ir isInstVarAccess].
>
> �insert code for �1 halt� before all of them"
> allIvarAccesses do: [ :each | each �addInstructionsBefore: { �IRInstruction pushLiteral: 1. �IRInstruction send: �#halt. IRInstruction popTop }].
>
> �generate a new compiledMethod"
> cm := irMethod generate: �(TestMy>>#test) trailer.
>
> �install in the class"
> TestMy addSelector: #test withMethod: cm.
>
> 17 <76> pushConstant: 1
> 18 <D0> send: halt
> 19 <87> pop
> 20 <00> pushRcvr: 0
> 21 <76> pushConstant: 1
> 22 <B0> send: +
> 23 <76> pushConstant: 1
> 24 <D0> send: halt
> 25 <87> pop
> 26 <00> pushRcvr: 0
> 27 <B0> send: +
> 28 <7C> returnTop
>
>
> �> TestMy new test
>
> What is now yet wiring is quick return methods �> need to clear the primitive in that case, should not be hard to do.

I love this in 5 lines!!!!