class: ReturnNode
authorClaus Gittinger <cg@exept.de>
Fri, 13 Jun 2014 12:24:03 +0200
changeset 3484 825bd64610a3
parent 3483 e86e885b0b6f
child 3485 594e31290d7b
class: ReturnNode changed: #expression:
ReturnNode.st
--- a/ReturnNode.st	Fri Jun 13 12:22:15 2014 +0200
+++ b/ReturnNode.st	Fri Jun 13 12:24:03 2014 +0200
@@ -50,10 +50,9 @@
     super expression:e.
 
     "/ any block, which is returned cannot be inlined.
-    e isBlockNode ifTrue:[
-        e possiblyInlined:false
+    e realNode isBlockNode ifTrue:[
+        e realNode possiblyInlined:false
     ]
-
 !
 
 home
@@ -257,6 +256,6 @@
 !ReturnNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.44 2013-08-31 11:30:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.45 2014-06-13 10:24:03 cg Exp $'
 ! !