The Trunk: Compiler-tfel.326.mcz

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: '()/'!