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