[Pkg] The Trunk: ShoutCore-eem.33.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-eem.33.mcz

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

Name: ShoutCore-eem.33
Author: eem
Time: 8 July 2011, 1:37:59.893 pm
UUID: fa382d6a-fb9c-441d-a078-56bf14069baf
Ancestors: ShoutCore-nice.32

Parse error: keywords in FFI method tags/pragmas.

=============== Diff against ShoutCore-nice.32 ===============

Item was changed:
  ----- Method: SHParserST80>>parseExternalCall (in category 'parse') -----
  parseExternalCall
+ 	[self scanNext.
+ 	((Smalltalk at: #ExternalFunction) callingConventionModifierFor: currentToken) notNil]
+ 		whileTrue.
- 	self scanNext.
- 	self failUnless: currentToken notNil.
  	self scanPast: #externalCallType.
  	currentToken = '*' 
  		ifTrue: [self scanPast: #externalCallTypePointerIndicator].
  	currentTokenFirst isDigit 
  		ifTrue: [self scanPast: #integer]
  		ifFalse: 	[
  			self failUnless: currentTokenFirst == $'.
  			self parseString].
  	self failUnless: currentTokenFirst == $(.
  	self scanPast: #leftParenthesis.
+ 	[currentTokenFirst ~= $)] 
- 	[currentTokenFirst ~~ $)] 
  		whileTrue: [
- 			self failUnless: currentToken notNil.
  			self scanPast: #externalCallType.
  			currentToken = '*' 
  				ifTrue: [self scanPast: #externalCallTypePointerIndicator]].
  	self scanPast: #rightParenthesis.
  	currentToken = 'module:' 
  		ifTrue: [
  			self scanPast: #module.
  			self failUnless: currentTokenFirst == $'.
  			self parseString].
+ 	currentToken = 'error:' 
+ 		ifTrue: [
+ 			self scanPast: #module.
+ 			currentTokenFirst == $'
+ 				ifTrue: [self parseString]
+ 				ifFalse: [self scanPast: #patternTempVar]].
  	self failUnless: currentToken = '>'.
  	self scanPast: #primitiveOrExternalCallEnd!