--- a/MethodFinder.st Sat Sep 28 16:32:40 2019 +0200
+++ b/MethodFinder.st Tue Oct 01 08:49:33 2019 +0200
@@ -1525,22 +1525,31 @@
!MethodFinder methodsFor:'search'!
exceptions
- "Handle some very slippery selectors.
- asSymbol -- want to be able to produce it, but do not want to make every string submitted into a Symbol!!"
+ "Handle some very slippery selectors.
+ asSymbol -- want to be able to produce it,
+ but do not want to make every string submitted into a Symbol!!"
+
+ | aSel |
+
+ answers first isSymbol ifFalse: [^ self].
+ thisData first first isString ifFalse: [^ self].
- | aSel |
- answers first isSymbol ifFalse: [^ self].
- thisData first first isString ifFalse: [^ self].
- aSel := #asSymbol.
- (self testPerfect: aSel) ifTrue: [
- selector add: aSel.
- expressions add: (String streamContents: [:strm |
- strm nextPutAll: 'data', argMap first printString.
- aSel keywords doWithIndex: [:key :ind |
- strm nextPutAll: ' ',key.
- ((key last == $:) or:[ key first isLetter not ])
- ifTrue: [strm nextPutAll: ' data',
- (argMap at: ind+1) printString]]])].
+ aSel := #asSymbol.
+ (self testPerfect: aSel) ifTrue: [
+ selector add: aSel.
+ expressions add:
+ (String streamContents: [:strm |
+ strm nextPutAll: 'data', argMap first printString.
+ aSel keywords doWithIndex: [:key :ind |
+ strm nextPutAll: ' ',key.
+ ((key last == $:) or:[ key first isLetter not ]) ifTrue: [
+ strm
+ nextPutAll: ' data';
+ nextPutAll: (argMap at: ind+1) printString
+ ]
+ ]
+ ])
+ ].
!
findMessage