#OTHER by exept
authorClaus Gittinger <cg@exept.de>
Thu, 22 Aug 2019 17:54:53 +0200
changeset 4508 acdb6bc18328
parent 4507 f61494fda739
child 4509 132f89212503
#OTHER by exept fixed child enumeration for explainer
StatementNode.st
--- a/StatementNode.st	Thu Aug 22 17:54:49 2019 +0200
+++ b/StatementNode.st	Thu Aug 22 17:54:53 2019 +0200
@@ -143,6 +143,7 @@
     "Created: / 20-07-2011 / 19:52:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !StatementNode methodsFor:'code generation'!
 
 codeAllForSideEffectOn:aStream inBlock:b for:aCompiler
@@ -217,6 +218,12 @@
     e notNil ifTrue:[e allNodesDo:aBlock].
 !
 
+childrenDo:aBlock
+    expression notNil ifTrue:[
+        aBlock value:expression
+    ].
+!
+
 do:aBlock
     "in st/x, statements is a linked list (not an ordered collection),
      this provides some dialect compatibility (for st2js)"
@@ -295,6 +302,7 @@
     ].
 ! !
 
+
 !StatementNode methodsFor:'evaluation'!
 
 evaluateAllIn:anEnvironment