Better variable naming in SmalltalkLintService>>annotationAtLine
authorClaus Gittinger
Wed, 19 Nov 2014 20:56:59 +0000
changeset 301 c7340c8fe8ad
parent 300 f5466d944367
child 302 44433b666576
child 304 b502cabd2fe7
Better variable naming in SmalltalkLintService>>annotationAtLine
SmallSense__SmalltalkLintService.st
--- 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