forked from lm/sublime-smalltalk-syntax
-
Notifications
You must be signed in to change notification settings - Fork 0
/
test.st
51 lines (39 loc) · 645 Bytes
/
test.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Object subclass: Collection [
"This is just some non-sense code..."
<shape: IndexedShape>
| tally |
at: anInteger put: anObject [
self at: anInteger put: anObject.
]
at: anInteger [
<primitive: AtPrimitive>
]
do: aBlock [
<symbolPragma:
#symbol>
]
size [
^tally
]
, aCollection [
| collection |
collection := self copy: tally + aCollection size.
^collection
]
doesNotUnderStand: aMessage [
aMessage selector == #msg ifTrue: [
^nil].
]
literals [
#(666 #symbol $c $<66> #'abc' 'abc').
666 #symbol $c $<66> #'abc' 'abc'.
'a
b
c'.
#'
a
b
c'.
true. false. nil. thisContext.
]
]