33 	^ PPCInlinePluggableNode new

    33     "Sadly, on Smalltalk/X blocks cannot be inlined because

    34 		name: name;

    34      the VM does not provide enough information to map

    35 		block: block;

    35      it back to source code. Very bad indeed!!"

    36 		yourself

    36 

    37     ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[

    38         ^ super asInlined

    39     ] ifFalse:[

    40         ^ PPCInlinePluggableNode new

    41                 name: name;

    42                 block: block;

    43                 yourself

    44     ]

    45 

    46     "Modified: / 06-11-2014 / 01:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"