equal
deleted
inserted
replaced
231 (rSel == #~~) ifTrue:[ |
231 (rSel == #~~) ifTrue:[ |
232 notSelector := #== |
232 notSelector := #== |
233 ] |
233 ] |
234 ]. |
234 ]. |
235 notSelector notNil ifTrue:[ |
235 notSelector notNil ifTrue:[ |
|
236 aCompiler addLiteral:selector; addLiteral:rSel. |
|
237 |
236 (BinaryNode receiver:(receiver receiver) |
238 (BinaryNode receiver:(receiver receiver) |
237 selector:notSelector |
239 selector:notSelector |
238 arg:(receiver arg)) codeOn:aStream inBlock:b for:aCompiler. |
240 arg:(receiver arg)) codeOn:aStream inBlock:b for:aCompiler. |
239 ^ self |
241 ^ self |
240 ] |
242 ] |
335 ! ! |
337 ! ! |
336 |
338 |
337 !UnaryNode class methodsFor:'documentation'! |
339 !UnaryNode class methodsFor:'documentation'! |
338 |
340 |
339 version |
341 version |
340 ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.40 2003-03-28 15:37:18 cg Exp $' |
342 ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.41 2003-10-08 15:26:34 cg Exp $' |
341 ! ! |
343 ! ! |