[squeak-dev] 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 Squeak-dev mailing list