Add method to compatibility package

ba-st · Aug 9, 2023 · a47c903 · a47c903
1 parent c9044c0
commit a47c903
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/source/Buoy-GS64-Compatibility/Collection.extension.st b/source/Buoy-GS64-Compatibility/Collection.extension.st
@@ -0,0 +1,10 @@
+Extension { #name : #Collection }
+
+{ #category : #'*Buoy-GS64-Compatibility' }
+Collection >> any [
+
+	"Answer a representative sample of the receiver. It raises an error when the collection is empty. This method can be helpful when needing to preinfer the nature of the contents of semi-homogeneous collections."
+
+	self emptyCheck.
+	self do: [ :each | ^ each ]
+]