--- a/ParseNodeVisitor.st	Thu Aug 22 17:54:38 2019 +0200
+++ b/ParseNodeVisitor.st	Thu Aug 22 17:54:43 2019 +0200
@@ -32,9 +32,13 @@
 collectChildrenOf:aNode
     |collector|
 
-    collector := ParseNodeChildCollector new topNode:aNode.
+    collector := self parseNodeChildCollectorClass new topNode:aNode.
     aNode acceptVisitor:collector.
     ^ collector children
+!
+
+parseNodeChildCollectorClass
+    ^ ParseNodeChildCollector
 ! !
 
 !ParseNodeVisitor methodsFor:'visiting'!
@@ -167,58 +171,6 @@
     "/     ^ self.
     "/ ].
     ^ super doesNotUnderstand:aMessage.
-!
-
-visitFunctionCallNode:anObject
-    self visitMessageNode:anObject
-!
-
-visitImplicitFunctionCallNode:aNode
-    self visitFunctionCallNode:aNode
-!
-
-visitInnerJavaBlockNode:aNode
-    self visitBlockNode:aNode
-!
-
-visitJavaScriptAssignmentNode:aNode
-    self visitAssignmentNode:aNode
-!
-
-visitJavaScriptFunctionNode:aNode
-    |stmt|
-
-    stmt := aNode statements.
-    [ stmt notNil ] whileTrue:[
-        self visit:stmt.
-        stmt := stmt nextStatement.
-    ].
-!
-
-visitJavaScriptInnerFunctionNode:aNode
-    self visitJavaScriptFunctionNode:aNode
-!
-
-visitJavaScriptReturnNode:aNode
-    self visitReturnNode:aNode
-!
-
-visitJavaScriptStatementNode:aNode
-    self visitStatementNode:aNode
-!
-
-visitJavaScriptVariableNode:aNode
-    self visitVariableNode:aNode
-!
-
-visitThisNode:aNode
-    self visitSelfNode:aNode
-!
-
-visitTryCatchStatementNode:aNode
-    self visit:aNode tryBlock.
-    self visit:aNode errorExpression.
-    self visit:aNode catchBlock.
 ! !
 
 !ParseNodeVisitor::ParseNodeChildCollector class methodsFor:'documentation'!