SmallSense__SmalltalkParseNodeVisitor.st
changeset 177 be588b60f4b2
parent 174 3e08d765d86f
child 249 8bc64027b189
--- a/SmallSense__SmalltalkParseNodeVisitor.st	Wed Feb 26 19:28:14 2014 +0100
+++ b/SmallSense__SmalltalkParseNodeVisitor.st	Thu Feb 27 09:47:48 2014 +0000
@@ -72,6 +72,8 @@
 
     | stmt |
 
+    anObject isNil ifTrue:[ ^ self ].
+
     ^anObject isStatementNode ifTrue:[
         stmt := anObject.
         [ stmt notNil and:[stmt isStatementNode ] ] whileTrue:[
@@ -85,7 +87,7 @@
         anObject acceptVisitor: self.
     ]
 
-    "Modified: / 24-09-2013 / 13:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-02-2014 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 visitAssignmentNode:anObject