--- a/Symbol.st Wed May 08 15:04:19 2019 +0200
+++ b/Symbol.st Wed May 08 15:04:54 2019 +0200
@@ -204,7 +204,6 @@
-
!Symbol methodsFor:'Compatibility-Squeak'!
precedence
@@ -415,15 +414,23 @@
This special format (a symbol starting with a colon) was chosen, because almost every other selector
is legal, and this can be checked quickly by just looking at the first character."
- ^ self nameSpaceAndSelectorParts second
+ |idx|
+
+ self isNameSpaceSelector ifFalse:[
+ "avoid copy"
+ ^ self
+ ].
+ idx := self indexOf:$: startingAt:3.
+ ^ self copyFrom:idx + 2.
"
#':foo:' selectorWithoutNameSpace -> #':foo:' (bad format)
- #':foo::bar' selectorWithoutNameSpace -> bar
- #':Tools::bar' selectorWithoutNameSpace -> bar
+ #':foo::bar' selectorWithoutNameSpace -> #bar
+ #':Tools::bar' selectorWithoutNameSpace -> #bar
"
"Created: / 20-07-2010 / 10:41:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 08-05-2019 / 14:47:24 / Stefan Vogel"
! !