The Trunk: ShoutCore-ul.17.mcz

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-ul.17.mcz

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

Name: ShoutCore-ul.17
Author: ul
Time: 29 April 2010, 11:33:55.576 am
UUID: e852d6d6-16bb-c245-b81c-47fbea80f793
Ancestors: ShoutCore-ul.16

- accept symbols as arguments of #primitive: and #primitive:module: pragmas

=============== Diff against ShoutCore-ul.16 ===============

Item was changed:
  ----- Method: SHParserST80>>parsePrimitive (in category 'parse') -----
  parsePrimitive
  self scanNext.
  currentTokenFirst isDigit
  ifTrue: [self scanPast: #integer]
  ifFalse: [
+ currentTokenFirst == $'
+ ifTrue: [ self parseString ]
+ ifFalse: [
+ currentTokenFirst == $#
+ ifTrue: [ self parseSymbol ]
+ ifFalse: [ self error ] ].
- self failUnless: currentTokenFirst == $'.
- self parseString.
  currentToken = 'module:'
  ifTrue: [
  self scanPast: #module.
+ currentTokenFirst == $'
+ ifTrue: [ self parseString ]
+ ifFalse: [
+ currentTokenFirst == $#
+ ifTrue: [ self parseSymbol ]
+ ifFalse: [ self error ] ] ] ].
+ self failUnless: currentTokenFirst == $>.
- self failUnless: currentTokenFirst == $'.
- self parseString]].
- self failUnless: currentToken = '>'.
  self scanPast: #primitiveOrExternalCallEnd!