fixed a lexer bug of eating up one more character when reading a single-letter identifier C, S, M followed by a non-identifier letter in get_ident().
changed various test programs according to syntax changes
This commit is contained in:
@ -29,8 +29,8 @@ extend SmallInteger
|
||||
|
||||
class TestObject(Object)
|
||||
{
|
||||
dcl(#class) Q R.
|
||||
dcl(#classinst) a1 a2.
|
||||
var(#class) Q, R.
|
||||
var(#classinst) a1, a2.
|
||||
|
||||
method test999
|
||||
{
|
||||
@ -40,8 +40,8 @@ class TestObject(Object)
|
||||
|
||||
class B.TestObject(Object)
|
||||
{
|
||||
dcl(#class) Q R.
|
||||
dcl(#classinst) a1 a2.
|
||||
var(#class) Q, R.
|
||||
var(#classinst) a1, a2.
|
||||
|
||||
method test000
|
||||
{
|
||||
@ -51,7 +51,7 @@ class B.TestObject(Object)
|
||||
|
||||
pooldic ABC
|
||||
{
|
||||
#KKK := 20.
|
||||
KKK := 20.
|
||||
}
|
||||
|
||||
|
||||
@ -67,7 +67,7 @@ class MyObject(TestObject)
|
||||
]
|
||||
on: Exception
|
||||
do: [:ex |
|
||||
System logNl: ('Exception: ', ex messageText).
|
||||
System logNl: ('Exception: ' & ex messageText).
|
||||
ex return: 10.
|
||||
##ex retry.
|
||||
System logNl: '--- THIS MUST NOT BE PRINTED ---'.
|
||||
|
Reference in New Issue
Block a user