--- 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