Logging package does not compile

> Hello,
>
> did anyone ever tried to load the "Logging" package from Keith  
> Hodges ?
> http://lists.squeakfoundation.org/pipermail/squeak-dev/2008-December/132923.html
>
> In pharo, the following method does not compile.
>
> testFilter: aMessage
> | lowerString |
> lowerString := aMessage value value asLowercase.
> ^(self searchString asString substrings allSatisfy: [:sub |
> sub := (sub asLowercase) replaceAll: $_ with: (Character space).
> ((sub first = $-) and: [(lowerString includesSubString: sub
> allButFirst) not]) or:
> [(sub first = $+) and: [lowerString includesSubString: sub
> allButFirst]] or:
> [lowerString includesSubString: sub]])
>
> It is easy to fix by using an extra variable.
> My question, should we ask Keith to fix this method so that this
> package would be "pharo loadable" ?

> Hello,
>
> did anyone ever tried to load the "Logging" package from Keith Hodges ?
> http://lists.squeakfoundation.org/pipermail/squeak-dev/2008-December/132923.html
>
> In pharo, the following method does not compile.
>
> testFilter: aMessage
> | lowerString |
> lowerString := aMessage value value asLowercase.
> ^(self searchString asString substrings allSatisfy: [:sub |
> sub := (sub asLowercase) replaceAll: $_ with: (Character space).
> ((sub first = $-) and: [(lowerString includesSubString: sub  
> allButFirst) not]) or:
> [(sub first = $+) and: [lowerString includesSubString: sub  
> allButFirst]] or:
> [lowerString includesSubString: sub]])
>
> It is easy to fix by using an extra variable.
> My question, should we ask Keith to fix this method so that this  
> package would be "pharo loadable" ?
>
> François

> François Tanguy wrote:
>> Hello,
>>
>> did anyone ever tried to load the "Logging" package from Keith  
>> Hodges ?
>> http://lists.squeakfoundation.org/pipermail/squeak-dev/2008-December/132923.html
>>
>> In pharo, the following method does not compile.
>>
>> testFilter: aMessage
>> | lowerString |
>> lowerString := aMessage value value asLowercase.
>> ^(self searchString asString substrings allSatisfy: [:sub |
>> sub := (sub asLowercase) replaceAll: $_ with: (Character space).
>> ((sub first = $-) and: [(lowerString includesSubString: sub
>> allButFirst) not]) or:
>> [(sub first = $+) and: [lowerString includesSubString: sub
>> allButFirst]] or:
>> [lowerString includesSubString: sub]])
>>
>> It is easy to fix by using an extra variable.
>> My question, should we ask Keith to fix this method so that this
>> package would be "pharo loadable" ?
>>
>> François
> You dont have to ask me to fix it, all of my projects are open  
> access. I
> look forward to receiving contributions that will ensure things are
> compatible.