5 lines
190 B
Smalltalk
5 lines
190 B
Smalltalk
dict keysAndValuesDo:[:eachOption :eachValue |
|
|
someObject
|
|
perform:(eachOption,':') asSymbol with:eachValue
|
|
ifNotUnderstood: [ self error: 'unknown option: ', eachOption ]
|
|
]
|