--- a/AssignmentNode.st Tue Feb 26 11:40:15 2008 +0100
+++ b/AssignmentNode.st Wed Feb 27 15:50:58 2008 +0100
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libcomp' }"
ParseNode subclass:#AssignmentNode
@@ -86,7 +85,7 @@
"/ any block, which gets assigned to something
"/ cannot be inlined.
- e isBlockNode ifTrue:[
+ (e notNil and:[e isBlockNode]) ifTrue:[
e possiblyInlined:false
]
! !
@@ -264,5 +263,5 @@
!AssignmentNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.37 2006-08-09 11:59:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.38 2008-02-27 14:50:58 cg Exp $'
! !