--- a/StatementNode.st	Thu Aug 15 18:43:18 1996 +0200
+++ b/StatementNode.st	Mon Aug 19 14:43:17 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-Compiler-Support'
 !
 
-!StatementNode class methodsFor:'documentation'!
+!StatementNode  class methodsFor:'documentation'!
 
 copyright
 "
@@ -43,7 +43,7 @@
 "
 ! !
 
-!StatementNode class methodsFor:'instance creation'!
+!StatementNode  class methodsFor:'instance creation'!
 
 expression:e
     ^ (self basicNew) expression:e
@@ -144,10 +144,24 @@
 isConstant
     nextStatement notNil ifTrue:[^ false].
     ^ expression isConstant
+!
+
+listEndsWithReturn
+    |thisStatement lastStatement|
+
+    thisStatement := self.
+    [thisStatement notNil] whileTrue:[
+        lastStatement := thisStatement.
+        thisStatement := thisStatement nextStatement
+    ].
+
+    ^ lastStatement isReturnNode
+
+    "Created: 19.8.1996 / 14:32:47 / cg"
 ! !
 
-!StatementNode class methodsFor:'documentation'!
+!StatementNode  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.15 1996-04-25 17:08:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.16 1996-08-19 12:43:17 cg Exp $'
 ! !