Replaced by cmm-1371.

On Mon, Feb 15, 2021 at 10:59 PM <commits at source.squeak.org> wrote:

> Chris Muller uploaded a new version of Kernel to project The Inbox:
> http://source.squeak.org/inbox/Kernel-cmm.1370.mcz
>
> ==================== Summary ====================
>
> Name: Kernel-cmm.1370
> Author: cmm
> Time: 15 February 2021, 10:43:35.519565 pm
> UUID: d974937b-c8d9-44a1-bbb0-9c233146b528
> Ancestors: Kernel-dtl.1369
>
> Let Processes identify themselves by a dynamic #name in their #printString
> IF they were so intentionally named, otherwise, the classic generic
> printString (which indicates its current Context).
>
> =============== Diff against Kernel-dtl.1369 ===============
>
> Item was changed:
>   ----- Method: Process>>longPrintOn: (in category 'printing') -----
> + longPrintOn: stream
> - longPrintOn: stream
> -
>         | ctxt |
> +       self printOn: stream.
> -       super printOn: stream.
> -       stream
> -               nextPut: $(;
> -               nextPutAll: self name;
> -               nextPut: $).
>         stream cr.
>         ctxt := self suspendedContext.
> +       [ ctxt == nil ] whileFalse:
> +               [ stream space.
> -       [ctxt == nil] whileFalse: [
> -               stream space.
>                 ctxt printOn: stream.
>                 stream cr.
> +               ctxt := ctxt sender ]!
> -               ctxt := ctxt sender.
> -       ].
> - !
>
> Item was changed:
>   ----- Method: Process>>printOn: (in category 'printing') -----
> + printOn: aStream
> +       self name value
> +               ifNil:
> +                       [ super printOn: aStream.
> +                       aStream nextPutAll: ' in '.
> +                       self suspendedContext printOn: aStream ]
> +               ifNotNil:
> +                       [ : nm | aStream nextPutAll: nm ]!
> - printOn: aStream
> -
> -       super printOn: aStream.
> -       aStream
> -               nextPut: $(;
> -               nextPutAll: self name;
> -               nextPut: $).
> -       aStream nextPutAll: ' in '.
> -       suspendedContext printOn: aStream!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210216/84e9e4c4/attachment.html>