equal
deleted
inserted
replaced
48 |
48 |
49 expression:e |
49 expression:e |
50 ^ (self basicNew) expression:e |
50 ^ (self basicNew) expression:e |
51 ! ! |
51 ! ! |
52 |
52 |
|
53 |
53 !StatementNode methodsFor:'accessing'! |
54 !StatementNode methodsFor:'accessing'! |
54 |
55 |
55 expression |
56 expression |
56 ^ expression |
57 ^ expression |
57 ! |
58 ! |
176 |coll stat| |
177 |coll stat| |
177 |
178 |
178 coll := OrderedCollection new. |
179 coll := OrderedCollection new. |
179 stat := self. |
180 stat := self. |
180 [stat notNil] whileTrue:[ |
181 [stat notNil] whileTrue:[ |
181 coll add:stat. |
182 stat expression isNil ifTrue:[ |
|
183 ] ifFalse:[ |
|
184 coll add:stat. |
|
185 ]. |
182 stat := stat nextStatement. |
186 stat := stat nextStatement. |
183 ]. |
187 ]. |
184 ^ coll |
188 ^ coll |
|
189 |
|
190 "Modified: / 12-09-2011 / 10:02:47 / cg" |
185 ! ! |
191 ! ! |
186 |
192 |
187 !StatementNode methodsFor:'enumerating'! |
193 !StatementNode methodsFor:'enumerating'! |
188 |
194 |
189 messagesDo:aBlock |
195 messagesDo:aBlock |
353 ! ! |
359 ! ! |
354 |
360 |
355 !StatementNode class methodsFor:'documentation'! |
361 !StatementNode class methodsFor:'documentation'! |
356 |
362 |
357 version_CVS |
363 version_CVS |
358 ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.42 2011-08-20 18:08:03 cg Exp $' |
364 ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.43 2011-09-12 08:19:41 cg Exp $' |
359 ! |
365 ! |
360 |
366 |
361 version_SVN |
367 version_SVN |
362 ^ '§ Id §' |
368 ^ '§ Id §' |
363 ! ! |
369 ! ! |