--- a/ParseNodeVisitor.st	Mon May 02 14:05:21 2016 +0200
+++ b/ParseNodeVisitor.st	Mon May 02 14:12:22 2016 +0200
@@ -112,39 +112,27 @@
 !
 
 visitReturnNode:anObject 
-
-    self visitStatementNode: anObject
-
-    "Modified: / 25-07-2011 / 22:34:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    self visit: anObject expression.
 !
 
-visitSelfNode:anObject
-
-    "Modified: / 25-07-2011 / 22:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+visitSelfNode:anObject 
+    "/ to be redefined in subclasses
 !
 
 visitStatementNode:anObject 
-
     self visit: anObject expression.
-
-    "Modified: / 25-07-2011 / 22:34:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-visitSuperNode:anObject
-
-    "Modified: / 25-07-2011 / 22:38:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+visitSuperNode:anObject 
+    "/ to be redefined in subclasses
 !
 
 visitUnaryNode:anObject 
-
-    self visitMessageNode: anObject
-
-    "Modified: / 25-07-2011 / 22:38:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    ^self visitMessageNode: anObject
 !
 
-visitVariableNode:anObject
-
-    "Modified: / 25-07-2011 / 22:38:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+visitVariableNode:anObject 
+    "/ to be redefined in subclasses
 ! !
 
 !ParseNodeVisitor class methodsFor:'documentation'!