MessageNode.st
changeset 3356 3c0e828c3f36
parent 3336 1b4396f06cbf
child 3385 0c211183027f
--- a/MessageNode.st	Wed Feb 05 11:03:04 2014 +0100
+++ b/MessageNode.st	Thu Feb 13 00:47:06 2014 +0100
@@ -1567,7 +1567,7 @@
     ].
     "compile as a nested if"
 
-    elseBlock := otherwiseArg.
+    elseBlock := otherwiseArg ? (ConstantNode value:nil).
     caseValueExpressions with:caseBlocks reverseDo:[:eachCaseValueExpression :eachCaseBlock |
         |cond|
 
@@ -3392,11 +3392,11 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.206 2013-10-30 20:10:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.207 2014-02-12 23:47:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.206 2013-10-30 20:10:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.207 2014-02-12 23:47:06 cg Exp $'
 !
 
 version_SVN