The Inbox: Kernel-cmm.1371.mcz

Chris Muller uploaded a new version of Kernel to project The Inbox:
http://source.squeak.org/inbox/Kernel-cmm.1371.mcz

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

Name: Kernel-cmm.1371
Author: cmm
Time: 15 February 2021, 11:51:24.851653 pm
UUID: 4a74e7a0-6654-491e-8a64-685c44d6fb63
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 indicating 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>>name (in category 'accessing') -----
  name
+ ^ name value
+ ifNil: [ self hash asString forceTo: 5 paddingStartWith: $ ]!
-
- ^name ifNil: [ self hash asString forceTo: 5 paddingStartWith: $ ]!

Item was changed:
  ----- Method: Process>>printOn: (in category 'printing') -----
+ printOn: aStream
+ self name
+ 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!