Parser.st
changeset 4172 e30dfcd9a372
parent 4168 82b9675da2d7
child 4178 ee9ffcf76d0e
--- a/Parser.st	Tue Jul 25 12:55:55 2017 +0200
+++ b/Parser.st	Tue Jul 25 17:11:28 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -5432,7 +5434,6 @@
     selector := aParser selector.
 ! !
 
-
 !Parser methodsFor:'obsolete'!
 
 correctByDeleting
@@ -5898,7 +5899,8 @@
             self hasPrimitiveCode ifFalse:[
                 self checkUnusedMethodVars.
             ].
-            ((annotations ? #()) contains:[:a | a key == LintRuleIgnoreAnnotation key]) ifFalse:[
+            (LintRuleIgnoreAnnotation isNil 
+             or:[(annotations ? #()) noneSatisfy:[:a | a key == LintRuleIgnoreAnnotation key]]) ifTrue:[
                 self checkReturnedValues.
             ]
         ]
@@ -5906,6 +5908,7 @@
     ^ stats
 
     "Modified: / 16-07-2017 / 13:38:37 / cg"
+    "Modified: / 25-07-2017 / 17:09:54 / stefan"
 !
 
 parseMethodBodyOrEmpty