The Inbox: Kernel-bf.1006.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Kernel-bf.1006.mcz

commits-2
Bert Freudenberg uploaded a new version of Kernel to project The Inbox:
http://source.squeak.org/inbox/Kernel-bf.1006.mcz

==================== Summary ====================

Name: Kernel-bf.1006
Author: bf
Time: 16 March 2016, 11:09:47.742872 am
UUID: a907e233-dc3a-44f7-92a8-57f0cac8e089
Ancestors: Kernel-eem.1005

Provide a pragma to annotate senders of messages that would otherwise not be found, by invoking a custom hasLiteral: test on the methodClass.
<hasLiteralTest: #myHasLiteral::>
For example use see System-bf.806

=============== Diff against Kernel-eem.1005 ===============

Item was changed:
  ----- Method: Pragma>>hasLiteral: (in category 'testing') -----
  hasLiteral: aLiteral
  ^keyword == aLiteral
+   or: [(arguments hasLiteral: aLiteral)
+ or: [keyword == #hasLiteralTest: and: [
+ self methodClass perform: arguments first with: aLiteral]]]!
-   or: [arguments hasLiteral: aLiteral]!


Reply | Threaded
Open this post in threaded view
|

Re: The Inbox: Kernel-bf.1006.mcz

Eliot Miranda-2
I like it!

_,,,^..^,,,_ (phone)

> On Mar 16, 2016, at 8:38 AM, [hidden email] wrote:
>
> Bert Freudenberg uploaded a new version of Kernel to project The Inbox:
> http://source.squeak.org/inbox/Kernel-bf.1006.mcz
>
> ==================== Summary ====================
>
> Name: Kernel-bf.1006
> Author: bf
> Time: 16 March 2016, 11:09:47.742872 am
> UUID: a907e233-dc3a-44f7-92a8-57f0cac8e089
> Ancestors: Kernel-eem.1005
>
> Provide a pragma to annotate senders of messages that would otherwise not be found, by invoking a custom hasLiteral: test on the methodClass.
> <hasLiteralTest: #myHasLiteral::>
> For example use see System-bf.806
>
> =============== Diff against Kernel-eem.1005 ===============
>
> Item was changed:
>  ----- Method: Pragma>>hasLiteral: (in category 'testing') -----
>  hasLiteral: aLiteral
>      ^keyword == aLiteral
> +       or: [(arguments hasLiteral: aLiteral)
> +        or: [keyword == #hasLiteralTest: and: [
> +            self methodClass perform: arguments first with: aLiteral]]]!
> -       or: [arguments hasLiteral: aLiteral]!
>
>