Refactoring:
replace asSet copy by asNewSet (same for IdentitySet)
replace (xxx collect:[]) asSet by (xxx collect:[] as:Set)
replace (xxx select:[]) asSet by (xxx select:[] as:Set)
--- a/ProjectDefinition.st Tue Apr 02 11:26:59 2013 +0200
+++ b/ProjectDefinition.st Tue Apr 02 11:31:44 2013 +0200
@@ -1396,9 +1396,10 @@
|subProjects|
- subProjects := self subProjects asSet.
- subProjects removeAllFoundIn:self excludedFromSubProjects.
- subProjects remove:self package ifAbsent:[].
+ subProjects := self subProjects asNewSet.
+ subProjects
+ removeAllFoundIn:self excludedFromSubProjects;
+ remove:self package ifAbsent:[].
^ subProjects
!
@@ -7251,11 +7252,11 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.448 2013-04-02 08:56:09 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.449 2013-04-02 09:31:44 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.448 2013-04-02 08:56:09 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.449 2013-04-02 09:31:44 stefan Exp $'
!
version_SVN