use #collect:as:Set
authorStefan Vogel <sv@exept.de>
Mon, 13 Aug 2012 16:22:06 +0200
changeset 2902 f6fce7bb1c55
parent 2901 6b85ec626617
child 2903 482f5086773d
use #collect:as:Set
ChangeSet.st
--- a/ChangeSet.st	Fri Aug 10 12:09:45 2012 +0200
+++ b/ChangeSet.st	Mon Aug 13 16:22:06 2012 +0200
@@ -550,6 +550,7 @@
     "Created: / 27.10.1997 / 13:52:54 / cg"
 ! !
 
+
 !ChangeSet class methodsFor:'Compatibility-VW'!
 
 component: component definition: anObject change: changeSymbol
@@ -707,7 +708,7 @@
 !ChangeSet class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.196 2012-07-31 15:32:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.197 2012-08-13 14:22:06 stefan Exp $'
 ! !
 
 !ChangeSet class methodsFor:'queries'!
@@ -3424,8 +3425,7 @@
 !ChangeSet::ClassSourceWriter::ClassInfo methodsFor:'accessing'!
 
 categories
-
-    ^ (methods collect:[:e|e category]) asSet
+    ^ methods collect:[:e|e category] as:Set
 
     "Created: / 19-03-2012 / 18:03:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -4054,7 +4054,7 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.196 2012-07-31 15:32:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.197 2012-08-13 14:22:06 stefan Exp $'
 !
 
 version_SVN