Apply Pharo style cleanup

Co-authored-by: Codex <codex@openai.com>

Author: Gabriel-Darbord

src/ArrowSyntaxRendering/ASRArrowSyntaxTextStyler.class.st

@@ -106,8 +106,7 @@ ASRArrowSyntaxTextStyler >> defaultTextStyle [
 { #category : 'private' }
 ASRArrowSyntaxTextStyler >> intervalFrom: start to: stop fitsIn: aText [
 
-	^ start isInteger and: [
-		  stop isInteger and: [ start >= 1 and: [ stop <= aText size ] ] ]
+	^ start >= 1 and: [ start <= stop and: [ stop <= aText size ] ]
 ]
 
 { #category : 'private' }

src/ArrowSyntaxRendering/RubShoutStylerDecorator.extension.st

@@ -17,18 +17,9 @@ RubShoutStylerDecorator >> styler [
 	"Answer the Shout styler, optionally using arrow rendering when ASRArrowSyntaxInstaller enables it."
 
 	^ styler ifNil: [
-			  | selectedClassOrMeta |
-			  selectedClassOrMeta := nil.
-			  styler := (self model isNotNil and: [
-				             (selectedClassOrMeta := self model
-					                                     selectedClassOrMetaClass)
-					             isNotNil ])
-				            ifTrue: [
-						            ASRArrowSyntaxInstaller
-							            stylerForDecorator: self
-							            selectedClassOrMetaClass: selectedClassOrMeta ]
-				            ifFalse: [
-						            ASRArrowSyntaxInstaller
-							            stylerForDecorator: self
-							            selectedClassOrMetaClass: nil ] ]
+			  styler := ASRArrowSyntaxInstaller
+				            stylerForDecorator: self
+				            selectedClassOrMetaClass:
+				            (self model ifNotNil: [ :theModel |
+					             theModel selectedClassOrMetaClass ]) ]
 ]