ProjectChecker.st
changeset 3686 544231883156
parent 3618 851e57ea8ad1
child 3780 d9c489fb2a98
--- a/ProjectChecker.st	Sun Dec 14 18:02:26 2014 +0100
+++ b/ProjectChecker.st	Sun Dec 21 17:03:32 2014 +0100
@@ -13,7 +13,7 @@
 
 Object subclass:#ProjectChecker
 	instanceVariableNames:'packages currentPackage currentPackageDef classes methods
-		problems phase checkExtensionsOnly'
+		problems phase checkExtensionsOnly rulesApplied'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Support-Projects'
@@ -488,8 +488,12 @@
     env := SelectorEnvironment new.
     env addClass: method mclass selector: method selector.
 
-    rules := RBCompositeLintRule allRules 
-                select:[:rule | (rule isTaggedAs: #stc) and:[ rule severity == #error ]].
+    rulesApplied isNil ifTrue:[
+        rulesApplied := RBCompositeLintRule allRules 
+                    select:[:rule | (rule isTaggedAs: #stc) and:[ rule severity == #error ]].
+    ].
+    rules := rulesApplied.
+
     rules runOnEnvironment: env.
 
     violations := rules select:[:each | each result includesSelector: method selector in: method mclass ]. 
@@ -713,14 +717,14 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.26 2014-07-31 08:49:55 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.27 2014-12-21 16:03:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.26 2014-07-31 08:49:55 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.27 2014-12-21 16:03:32 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: ProjectChecker.st,v 1.26 2014-07-31 08:49:55 vrany Exp $'
+    ^ '$Id: ProjectChecker.st,v 1.27 2014-12-21 16:03:32 cg Exp $'
 ! !