SmallSense__SmalltalkLintService.st
changeset 301 c7340c8fe8ad
parent 298 c1d8d35e71fd
child 311 368ff7243ade
child 312 ce4e697a363c
--- a/SmallSense__SmalltalkLintService.st	Wed Nov 19 15:51:14 2014 +0000
+++ b/SmallSense__SmalltalkLintService.st	Wed Nov 19 20:56:59 2014 +0000
@@ -229,15 +229,15 @@
     | annotations |        
 
     (annotations := highlighter annotations) isEmptyOrNil ifTrue:[ ^ nil ].
-    annotations do:[:a|
-        | l |
+    annotations do:[:annotation|
+        | line |
 
-        (l := a line) isNil ifTrue:[
-            l := codeView lineOfCharacterPosition: a startPosition.
-            a line: l.
+        (line := annotation line) isNil ifTrue:[
+            line := codeView lineOfCharacterPosition: annotation startPosition.
+            annotation line: line.
         ].
-        l > lineNo ifTrue:[ ^ nil ].
-        l == lineNo ifTrue:[ ^ a ].
+        line > lineNo ifTrue:[ ^ nil ].
+        line == lineNo ifTrue:[ ^ annotation ].
     ].
     ^nil