--- a/Method.st Sun May 20 10:35:25 2018 +0200
+++ b/Method.st Sun May 20 10:52:25 2018 +0200
@@ -2045,16 +2045,16 @@
"Modified: 1.11.1996 / 16:27:04 / cg"
!
-whoStringWith:sep
- "return a string like className>>selector,
- if this is not an unbound method.
- Otherwise return 'unbound'. Used with debugging."
+whoStringWith:sepString
+ "return a string like className>>selector, where '>>' is replaced by sepString.
+ If this is an unbound method, return 'unbound'.
+ Used with debugging."
|who|
who := self who.
who notNil ifTrue:[
- ^ who methodClass name , sep , (who methodSelector storeString)
+ ^ who methodClass name , sepString , (who methodSelector storeString)
].
^ 'unboundMethod'