Oops, use `#realSharedPoolNames` when searching inherited shared pools jv
authorJan Vrany <jan.vrany@labware.com>
Mon, 22 Mar 2021 23:40:55 +0000
branchjv
changeset 4662 f52e5a8dcf12
parent 4661 9cb6a83409bb
child 4663 73191a0db2d8
child 4726 adfd7edc230a
Oops, use `#realSharedPoolNames` when searching inherited shared pools The shared pool check block accepts names, not pools themselves!
Parser.st
--- 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.
             ].
         ].