qse/ase/test/stx/test1.st

11 lines
183 B
Smalltalk
Raw Normal View History

2005-09-13 12:13:57 +00:00
print: a1 and: a2
2005-10-02 15:57:36 +00:00
| t1 t2 |
2005-09-13 12:13:57 +00:00
<primitive: 3>
t1 := #abcdefg.
"a1 := 2341 arguments are not assignable"
2005-10-02 15:57:36 +00:00
t2 := a2.
t1 prim2: t2.
2005-10-02 15:45:09 +00:00
super prim2: 999999.
self prim2: 999999.
2005-09-30 12:19:00 +00:00
^67891.