author | Claus Gittinger <cg@exept.de> |
Thu, 24 May 2018 14:56:35 +0200 | |
changeset 23000 | 5760bcf5994e |
parent 22999 | c3bafb980bf4 |
child 23001 | 92776085244b |
ClassBuilder.st | file | annotate | diff | comparison | revisions |
--- a/ClassBuilder.st Thu May 24 14:33:19 2018 +0200 +++ b/ClassBuilder.st Thu May 24 14:56:35 2018 +0200 @@ -2350,11 +2350,13 @@ (pool notNil and:[pool isBehavior]) ifTrue:[ pool autoload. pool isSharedPool ifFalse:[ - self error:('Not a valid pool: ' , eachPoolName) mayProceed:true. + self proceedableError:('Not a valid pool: ' , eachPoolName). ] ] ] ]. + + "Modified: / 24-05-2018 / 14:56:02 / Claus Gittinger" ! checkValidSubclassing