The Inbox: Kernel-cmm.1370.mcz

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!