changeset 4232 | 2fe8688c6d27 |
parent 3974 | 19a680e0f151 |
child 4234 | b79020a649be |
--- a/ParseNode.st Mon Apr 23 22:17:22 2018 +0200 +++ b/ParseNode.st Mon Apr 23 22:38:36 2018 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 1989 by Claus Gittinger All Rights Reserved @@ -361,7 +363,12 @@ allNodesDo:aBlock "evaluate aBlock for each variable-node here and in subnodes" - aBlock value:self + aBlock value:self. + self allSubNodesDo:aBlock. +! + +allSubNodesDo:aBlock + self subclassResponsibility. ! messageNodesDo:aBlock