#DOCUMENTATION by exept
authorClaus Gittinger <cg@exept.de>
Tue, 01 Oct 2019 08:49:33 +0200
changeset 4505 525d1fd161ed
parent 4504 196828a4584c
child 4506 832c195c3dc4
#DOCUMENTATION by exept class: MethodFinder changed: #exceptions
MethodFinder.st
--- 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