--- a/SmallSense__SmalltalkParseNodeFinder.st Fri Apr 04 15:12:18 2014 +0200
+++ b/SmallSense__SmalltalkParseNodeFinder.st Tue Apr 08 15:03:38 2014 +0200
@@ -35,7 +35,7 @@
[
i < comments size and:[ (s := comments at:i) notNil ]
] whileTrue:[
- e := s + (comments at:i + 1) - 1.
+ e := "s + "(comments at:i + 1) - 1.
(pos between:s and:e) ifTrue:[
^ nil -> pos.
].
@@ -48,7 +48,7 @@
^ (match ? previous) -> pos.
"Created: / 29-01-2014 / 10:20:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 31-03-2014 / 22:15:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 08-04-2014 / 14:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!SmalltalkParseNodeFinder methodsFor:'visiting'!