I'd say that it looks like a "bug ward". But I think the system should not contain right now classpools with string keys. They should all be symbols. (Smalltalk allClasses gather: [ :class | class classPool keys ]) select: [ :k | k isSymbol not ] should be an empty collection. So you probably can replace those three lines by: manager := Instance. ? Guille El mié., 27 de may. de 2015 a la(s) 9:46 a. m., Christophe Demarey < christophe.demarey@inria.fr> escribió:
hi,
Does anyone knows if there is a particular reason to write this kind of code (snippet from RBRefactoringTest>>setUp
assoc := RBRefactoringManager classPool associationAt: #Instance ifAbsent: [RBRefactoringManager classPool associationAt: 'Instance']. manager := assoc value.
Thanks, Christophe