Tagging: minor change before sync.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-07-19 17:32:54 -05:00
parent 1443293763
commit f4e8af6f16

View File

@ -2,6 +2,6 @@ Extension { #name : #LeTextSnippet }
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
LeTextSnippet >> tagged: aString [ LeTextSnippet >> tagged: aString [
self optionAt: 'tags' ifPresent: [ (self optionAt: 'tags') add: aString ] ifAbsentPut: [ Set new ]. self optionAt: 'tags' ifPresent: [ (self optionAt: 'tags') add: aString; yourself ] ifAbsentPut: [ Set new ].
^ self optionAt: 'tags' ^ self optionAt: 'tags'
] ]