The Trunk: Kernel-eem.1100.mcz

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

The Trunk: Kernel-eem.1100.mcz

commits-2
Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1100.mcz

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

Name: Kernel-eem.1100
Author: eem
Time: 26 April 2017, 2:13:43.92511 pm
UUID: d2281281-58ee-4fc0-a85f-32aa3c0063ca
Ancestors: Kernel-ul.1099

Fix regression in Context printing introduced in Kernel-eem.1074 through Kernel-eem.1074 or there abouts.

=============== Diff against Kernel-ul.1099 ===============

Item was changed:
  ----- Method: Context>>printOn: (in category 'printing') -----
  printOn: aStream
  | class mclass selector |
  method ifNil:
  [^super printOn: aStream].
 
  closureOrNil ifNotNil:
  [aStream nextPutAll: '[] in '.
+ closureOrNil outerContext ifNotNil:
+ [:outer|
+ outer printOn: aStream.
+ ^self]].
- closureOrNil outerContext printOn: aStream].
 
  class := self objectClass: self receiver.
  mclass := method methodClass.
  selector := method selector ifNil: [method defaultSelector].
 
  aStream nextPutAll: class name.
  mclass ~~ class ifTrue:
  [aStream nextPut: $(; nextPutAll: mclass name; nextPut: $)].
  aStream nextPutAll: '>>'; nextPutAll: selector.
 
  (selector == #doesNotUnderstand:
  and: [(self objectClass: (self tempAt: 1)) == Message]) ifTrue:
  [aStream space.
  (self tempAt: 1) selector printOn: aStream]!