equal
deleted
inserted
replaced
1565 otherwiseArg := argArray at:2. |
1565 otherwiseArg := argArray at:2. |
1566 otherwiseArg isBlock ifFalse:[^ false] |
1566 otherwiseArg isBlock ifFalse:[^ false] |
1567 ]. |
1567 ]. |
1568 "compile as a nested if" |
1568 "compile as a nested if" |
1569 |
1569 |
1570 elseBlock := otherwiseArg. |
1570 elseBlock := otherwiseArg ? (ConstantNode value:nil). |
1571 caseValueExpressions with:caseBlocks reverseDo:[:eachCaseValueExpression :eachCaseBlock | |
1571 caseValueExpressions with:caseBlocks reverseDo:[:eachCaseValueExpression :eachCaseBlock | |
1572 |cond| |
1572 |cond| |
1573 |
1573 |
1574 cond := MessageNode receiver:receiver selector:#'=' arg:eachCaseValueExpression. |
1574 cond := MessageNode receiver:receiver selector:#'=' arg:eachCaseValueExpression. |
1575 ifMessage := MessageNode |
1575 ifMessage := MessageNode |
3390 ! ! |
3390 ! ! |
3391 |
3391 |
3392 !MessageNode class methodsFor:'documentation'! |
3392 !MessageNode class methodsFor:'documentation'! |
3393 |
3393 |
3394 version |
3394 version |
3395 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.206 2013-10-30 20:10:24 stefan Exp $' |
3395 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.207 2014-02-12 23:47:06 cg Exp $' |
3396 ! |
3396 ! |
3397 |
3397 |
3398 version_CVS |
3398 version_CVS |
3399 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.206 2013-10-30 20:10:24 stefan Exp $' |
3399 ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.207 2014-02-12 23:47:06 cg Exp $' |
3400 ! |
3400 ! |
3401 |
3401 |
3402 version_SVN |
3402 version_SVN |
3403 ^ '$ Id $' |
3403 ^ '$ Id $' |
3404 ! ! |
3404 ! ! |