[Pkg] The Trunk: Kernel-eem.1100.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 26 21:13:51 UTC 2017
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]!
More information about the Packages
mailing list