Use Smalltalk>>#includesKey: to make it portable to Pharo8

ba-st · Aug 28, 2024 · 350ae76 · 350ae76
1 parent 6239fec
commit 350ae76
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/source/BaselineOfAnsible/BaselineOfAnsible.class.st b/source/BaselineOfAnsible/BaselineOfAnsible.class.st
@@ -25,17 +25,12 @@ BaselineOfAnsible >> baseline: spec [
 
 { #category : 'initialization' }
 BaselineOfAnsible >> postLoadInitialization [
-
   " ExpectedSocketFailure is used to handle socket failures across 
 	different Pharo versions (SocketError was introduced in Pharo 11) "
 
-  Smalltalk
-    at: #ExpectedSocketFailure
-    put:
-    ( Smalltalk
-        at: #SocketError
-        ifPresent: [ :socketError | socketError ]
-        ifAbsent: [ PrimitiveFailed ] )
+  Smalltalk at: #ExpectedSocketFailure put: ( ( Smalltalk includesKey: #SocketError )
+        then: [ Smalltalk at: #SocketError ]
+        otherwise: [ PrimitiveFailed ] )
 ]
 
 { #category : 'accessing' }