10 lines
193 B
Smalltalk
10 lines
193 B
Smalltalk
$ gst
|
|
GNU Smalltalk ready
|
|
|
|
st> |concat|
|
|
st> concat := [ :a :b :c | (a,c,c,b) displayNl ].
|
|
a BlockClosure
|
|
st> concat value: 'Rosetta' value: 'Code' value: ':'.
|
|
Rosetta::Code
|
|
'Rosetta::Code'
|
|
st>
|