--- a/StatementNode.st	Thu Jan 24 14:49:57 2008 +0100
+++ b/StatementNode.st	Thu Jan 24 14:50:04 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libcomp' }"
 
 ParseNode subclass:#StatementNode
@@ -258,11 +257,16 @@
     "Modified: 20.4.1997 / 12:10:18 / cg"
 !
 
-isConstant
+isSimpleConstant
     nextStatement notNil ifTrue:[^ false].
     ^ expression isConstant
 !
 
+isSimpleVariable
+    nextStatement notNil ifTrue:[^ false].
+    ^ expression isVariable
+!
+
 listEndsWithReturn
     |thisStatement lastStatement|
 
@@ -280,5 +284,5 @@
 !StatementNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.33 2005-10-05 14:02:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.34 2008-01-24 13:50:04 cg Exp $'
 ! !