これが期待どおりに機能しない理由を誰かが説明できますか?
add: rhsKey
myUnits includesKey: rhsKey
ifTrue: myUnits put: (myUnits at: rhsKey) + 1 at: rhsKey
ifFalse: myUnits add: rhsKey -> 1.
実行例:
ut := UnitTracker の名前: 'test'。
ut add: 'seconds'.
ut add: 'seconds'.
ut add: 'seconds'.
ut add: '分'.
最初のラウンドで ifTrue を実行し続けます。