ProjectChecker.st
changeset 4501 7d09ad7e22b3
parent 4500 6c5a62d702da
child 4546 88e32ac10e79
--- a/ProjectChecker.st	Wed Sep 18 10:06:08 2019 +0200
+++ b/ProjectChecker.st	Thu Sep 19 19:14:25 2019 +0200
@@ -524,14 +524,15 @@
 
     method usedGlobals do:[:nm |
         nm isLowercaseFirst ifTrue:[
-            "/ not if that refers to a project definition
-            ((cls := Smalltalk classNamed:nm) notNil
-              and:[cls isProjectDefinition]
-            ) ifFalse:[
+            "/ EVEN if that refers to a project definition,
+            "/ because by default, stc does not allow lowercase globals.
+            "/ ((cls := Smalltalk classNamed:nm) notNil
+            "/   and:[cls isProjectDefinition]
+            "/ ) ifFalse:[
                 problemIssue 
                     addWarning:'Contains reference to lowercase global: ', nm
                     from:0 to:0
-            ].
+            "/ ].
         ].
         (nm startsWith:Smalltalk undeclaredPrefix) ifTrue:[
             problemIssue