Improve code readability.

jecisc · May 10, 2020 · 23282e1 · 23282e1
1 parent 971a92b
commit 23282e1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/Chanel/Chanel.class.st b/src/Chanel/Chanel.class.st
@@ -138,13 +138,9 @@ Chanel class >> worldMenuOn: aBuilder [
 
 { #category : #cleaning }
 Chanel >> cleanUsing: cleaners [
-	| availableCleaners sortResult |
 	"Use topological sort to sort the cleaners to get the best effect possible with this set of cleaners."
-	availableCleaners := cleaners select: [ :each | each isAvailableForPharo: self minimalPharoVersion ].
 
-	sortResult := (MalTopologicalSorting nodes: availableCleaners incomingEdgesProperty: #requirements) run.
-
-	self cleanWithSelectedCleaners: (sortResult collect: #model)
+	self cleanWithSelectedCleaners: (MalTopologicalSorting sort: (cleaners select: [ :each | each isAvailableForPharo: self minimalPharoVersion ]) followingIncomingProperty: #requirements)
 ]
 
 { #category : #cleaning }

diff --git a/src/Chanel/MalTopologicalSorting.extension.st b/src/Chanel/MalTopologicalSorting.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : #MalTopologicalSorting }
+
+{ #category : #'*Chanel' }
+MalTopologicalSorting class >> sort: nodes followingIncomingProperty: aValuable [
+	^ (self nodes: nodes incomingEdgesProperty: aValuable) run collect: #model
+]