author | Jan Vrany <jan.vrany@labware.com> |
Mon, 22 Mar 2021 23:40:55 +0000 | |
branch | jv |
changeset 4662 | f52e5a8dcf12 |
parent 4661 | 9cb6a83409bb |
child 4663 | 73191a0db2d8 |
child 4726 | adfd7edc230a |
--- a/Parser.st Tue Feb 16 08:21:08 2021 +0000 +++ b/Parser.st Mon Mar 22 23:40:55 2021 +0000 @@ -9137,7 +9137,7 @@ class := classToCompileFor theNonMetaclass superclass. [ class notNil ] whileTrue: [ - (class sharedPools ? #()) do:checkSharedPoolAction. + (class realSharedPoolNames ? #()) do:checkSharedPoolAction. class := class superclass. ]. ].