[Help-smalltalk] Small bug in STInST

[Mike Anderson]

In brief, it can fall over when you have more than two levels of
namespaces (including Smalltalk).

The attached files illustrate it: test-st-in-st-1.st files in
test-st-in-st-2.st, so that the STInST parser takes over the parsing,
and then you get the error.

Looking at STInST.STSymbolTable >> declareGlobals

it seems to me that:

    behavior allSharedPools do: [ :sp |
        self addPool: (Smalltalk at: sp)
    ].

should be:

    behavior allSharedPools do: [ :sp |
        self addPool: (behavior environment at: sp)
    ].

Incidentally, I notice that

Smalltalk isSmalltalk 

returns false (the declaration in AbstractNamespace is not overriden). 
That can't be right?

Regards,

Mike

test-st-in-st-1.st
Description: Text document

test-st-in-st-2.st
Description: Text document