--- a/Class.st Mon Oct 03 10:30:04 2011 +0200
+++ b/Class.st Mon Oct 03 10:30:36 2011 +0200
@@ -1438,14 +1438,14 @@
poolNames := self sharedPoolNames.
(ns := self topNameSpace) notNil ifTrue:[
- ^ poolNames
- collect:[:nm |
- |p|
- (p := ns at:nm) notNil ifTrue:[
- p name
- ] ifFalse:[
- nm
- ]].
+ ^ poolNames
+ collect:[:nm |
+ |p|
+ (p := ns at:nm asSymbol) notNil ifTrue:[
+ p name
+ ] ifFalse:[
+ nm
+ ]].
].
^ poolNames
@@ -1641,7 +1641,7 @@
"/ for backward compatibility..
aCollection isString ifTrue:[
Transcript showCR:'warning: string passed to sharedPools:'.
- self sharedPoolNames:(aCollection asCollectionOfWords).
+ self sharedPoolNames:(aCollection asCollectionOfWords collect:[:each | each asSymbol]).
^ self.
].
self sharedPoolNames:
@@ -1653,7 +1653,7 @@
]
).
- "Modified: / 03-10-2011 / 10:28:05 / cg"
+ "Modified: / 03-10-2011 / 10:30:30 / cg"
!
source
@@ -5436,11 +5436,11 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.597 2011-10-03 08:28:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.598 2011-10-03 08:30:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.597 2011-10-03 08:28:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.598 2011-10-03 08:30:36 cg Exp $'
!
version_SVN