[PreSmalltalks] Add Dictionary class>>newFromArrayOfPairs:

shingarov · Feb 11, 2024 · ad891c9 · ad891c9
1 parent fa8a6b4
commit ad891c9
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/PreSmalltalks/Dictionary.extension.st b/src/PreSmalltalks/Dictionary.extension.st
@@ -64,6 +64,13 @@ Dictionary >> lookupSymbol: aString ifAbsent: aBlockClosure [
 	^self at: aString ifAbsent: aBlockClosure
 ]
 
+{ #category : #'*PreSmalltalks' }
+Dictionary class >> newFromArrayOfPairs: pairs [
+	| assocs |
+	assocs := pairs collectPairs: [ :k :v | k->v ].
+	^self newFromAssociations: assocs
+]
+
 { #category : #'*PreSmalltalks' }
 Dictionary class >> newFromAssociations: anArray [