issue #2085
Replace the method PackageOrganizer>>packageOfClass: aClass ifNone:
errorBlock by
-=-=-=-=-=
packageOfClass: aClass ifNone: errorBlock
| classCategory |
classCategory := aClass category.
packages at: classCategory ifPresent: [:v | ^ v].
(classCategory includes: $-)
ifTrue: [ packages at: (classCategory copyUpTo: $-) ifPresent:
[:v |
^ v] ].
^ self packages detect: [:ea | ea includesClass: aClass] ifNone:
errorBlock
-=-=-=-=-=
Before this enhancement:
[100 timesRepeat: [Object package]] timeToRun
=> 141
After the fix:
=> 2
Easy thing to do.
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
