[PreSmalltalks] Add Metavars>>setCurrentFromAssociations:

shingarov · shingarov · commit 84c6eb0fa3cc · 2024-06-30T09:26:20.000-04:00
diff --git a/src/PreSmalltalks/Metavars.class.st b/src/PreSmalltalks/Metavars.class.st
@@ -18,8 +18,13 @@ Class {
 	#category : #PreSmalltalks
 }
 
-{ #category : #accessing }
+{ #category : #'instance creation' }
 Metavars class >> current [
 	current isNil ifTrue: [ current := self new ].
 	^current
 ]
+
+{ #category : #'instance creation' }
+Metavars class >> setCurrentFromAssociations: as [
+	current := self newFromAssociations: as
+]

Original file line number	Diff line number	Diff line change
`@@ -18,8 +18,13 @@ Class {`
`18`	`18`	`#category : #PreSmalltalks`
`19`	`19`	`}`
`20`	`20`
`21`		`-{ #category : #accessing }`
	`21`	`+{ #category : #'instance creation' }`
`22`	`22`	`Metavars class >> current [`
`23`	`23`	`current isNil ifTrue: [ current := self new ].`
`24`	`24`	`^current`
`25`	`25`	`]`
	`26`	`+`
	`27`	`+{ #category : #'instance creation' }`
	`28`	`+Metavars class >> setCurrentFromAssociations: as [`
	`29`	`+ current := self newFromAssociations: as`
	`30`	`+]`