Merge pull request #719 from moosetechnology/dead-code

Remove some dead code

Author: jecisc

src/Moose-SmalltalkImporter/CompiledMethod.extension.st

@@ -2,29 +2,21 @@ Extension { #name : #CompiledMethod }
 
 { #category : #'*Moose-SmalltalkImporter' }
 CompiledMethod >> mooseName [
-	^ self mooseNameWithScope: false
-]
-
-{ #category : #'*Moose-SmalltalkImporter' }
-CompiledMethod >> mooseNameWithScope: aboolean [
 
-	| string |
-	string := String streamContents: [:str | 
-		str nextPutAll: self methodClass mooseName.
-		str nextPut: $..
-		str nextPutAll: self selector. 
-		self signatureFromSmalltalkSelectorOn: str].
-	^ string asSymbol
+	^ String streamContents: [ :str |
+		  str
+			  nextPutAll: self methodClass mooseName;
+			  nextPut: $.;
+			  nextPutAll: self selector.
+		  self signatureFromSmalltalkSelectorOn: str ]
 ]
 
 { #category : #'*Moose-SmalltalkImporter' }
 CompiledMethod >> signature [
 
-	| ws |
-	ws := WriteStream on: (String new: 150).
-	ws nextPutAll: self selector.
-	self signatureFromSmalltalkSelectorOn: ws.
-	^ws contents asSymbol
+	^ (String streamContents: [ :aStream |
+		   aStream nextPutAll: self selector.
+		   self signatureFromSmalltalkSelectorOn: aStream ]) asSymbol
 ]
 
 { #category : #'*Moose-SmalltalkImporter' }
@@ -34,10 +26,7 @@ CompiledMethod >> signatureFromSmalltalkSelectorOn: aStream [
 	sym := self selector.
 	numArgs := sym numArgs.
 	aStream nextPut: $(.
-	1
-		to: numArgs
-		do: [:inx | aStream nextPutAll: 'Object,'].
-	numArgs > 0 ifTrue: [aStream skip: -1	"remove last space"].
-	aStream nextPut: $).
-	
+	1 to: numArgs do: [ :inx | aStream nextPutAll: 'Object,' ].
+	numArgs > 0 ifTrue: [ aStream skip: -1 "remove last space" ].
+	aStream nextPut: $)
 ]