fix precedence computation

src/Collections-Strings-Tests/SymbolTest.class.st

@@ -502,6 +502,30 @@ SymbolTest >> testNumArgsUnary [
 	self assert: '123name' numArgs equals: -1
 ]
 
+{ #category : 'tests' }
+SymbolTest >> testPrecedence [
+	self assert: #x precedence equals: 1.
+	self assert: #abs precedence equals: 1.
+	self assert: #_abs precedence equals: 1.
+
+	self assert: #+ precedence equals: 2.
+	self assert: #+- precedence equals: 2.
+	self assert: #>>> precedence equals: 2.
+
+	self assert: #x: precedence equals: 3.
+	self assert: #abs: precedence equals: 3.
+	self assert: #_abs: precedence equals: 3.
+
+	self assert: #x:y: precedence equals: 3.
+	self assert: #abs:y: precedence equals: 3.
+	self assert: #_abs:y: precedence equals: 3.
+
+	self assert: #'0' precedence equals: 0.
+	self assert: #'.' precedence equals: 0.
+	self assert: #':' precedence equals: 0.
+
+]
+
 { #category : 'tests' }
 SymbolTest >> testPrintOn [
 

src/Collections-Strings/Symbol.class.st

@@ -509,7 +509,12 @@ Symbol >> precedence [
 	2 for binary and 3 for keyword selectors."
 
 	self size = 0 ifTrue: [^ 0].
-	(self first isLetter or: [ self first = $_ ]) ifFalse: [^ 2].
+	(self first isLetter or: [ self first = $_ ]) ifFalse: [
+		| special |
+		special := Character specialCharacters.
+		^ (self allSatisfy: [ :char | special includes: char ])
+			ifTrue: [ 2 ]
+			ifFalse: [ 0 ] ].
 	self last = $: ifTrue: [^ 3].
 	^ 1
 ]