8 lines
174 B
Smalltalk
8 lines
174 B
Smalltalk
accessing
|
|
pinned
|
|
| first second |
|
|
first := self messages first.
|
|
(first metadata at: 'pinned') = 1
|
|
ifFalse: [ ^ first ].
|
|
second := self messages second.
|
|
^ first created |