Nicolas Cellier uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-nice.41.mcz
==================== Summary ====================
Name: ShoutCore-nice.41 Author: nice Time: 14 March 2014, 11:13:43.751 pm UUID: 3974817a-996f-4fa8-b397-d727f7c27542 Ancestors: ShoutCore-cwp.40
There can be more characters after a vertical bar (|) in a binary selector for a while now, tell Shout about it.
=============== Diff against ShoutCore-cwp.40 ===============
Item was changed: ----- Method: SHParserST80>>scanBinary (in category 'scan') ----- scanBinary | c d | c := self currentChar. currentTokenSourcePosition := sourcePosition. currentToken := c asString. d := self nextChar. ((self isSelectorCharacter: c) or: [c == $:]) ifFalse: [^currentToken]. (c == $: and: [d == $=]) ifTrue: [" := assignment" currentToken := currentToken , d asString. self nextChar. ^currentToken]. - c == $| ifTrue:["| cannot precede a longer token" ^currentToken]. [self isSelectorCharacter: d] whileTrue: [ currentToken := currentToken , d asString. d := self nextChar]. ^currentToken!
packages@lists.squeakfoundation.org