[squeak-dev] The Trunk: Compiler-tfel.326.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Aug 11 09:10:55 UTC 2016


Tim Felgentreff uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-tfel.326.mcz

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

Name: Compiler-tfel.326
Author: tfel
Time: 4 August 2016, 11:01:03.69403 am
UUID: e3f5a2b4-0efb-8a4a-a062-bf5469c9b73d
Ancestors: Compiler-tfel.325

fix printing of MessageNodes and SelectorNodes

=============== Diff against Compiler-tfel.325 ===============

Item was changed:
  ----- Method: MessageNode>>printKeywords:arguments:on:indent: (in category 'printing') -----
  printKeywords: key arguments: args on: aStream indent: level
  	| keywords indent arg kwd doCrTab |
  	args size = 0 ifTrue:
  		[aStream space; nextPutAll: key.
  		 ^self].
+ 	keywords := key asString keywords.
- 	keywords := key keywords.
  	doCrTab := args size > 2
  				or: [{receiver} , args anySatisfy:
  						[:thisArg |
  						thisArg notNil
  						and: [thisArg isBlockNode
  							 or: [thisArg isMessageNode and: [thisArg precedence >= 3]]]]].
  	1 to: (args size min: keywords size) do:
  		[:i |
  		arg := args at: i.
  		kwd := keywords at: i.
  		doCrTab
  			ifTrue: [aStream crtab: level+1. indent := 1] "newline after big args"
  			ifFalse: [aStream space. indent := 0].
  		aStream nextPutAll: kwd; space.
  		arg printOn: aStream
  			indent: level + 1 + indent
  			precedence: (precedence = 2 ifTrue: [1] ifFalse: [precedence])]!

Item was changed:
  ----- Method: SelectorNode>>isForFFICall (in category 'testing') -----
  isForFFICall
+ 	^key asString includesSubstring: '()/'!
- 	^key includesSubstring: '()/'!



More information about the Squeak-dev mailing list