Nicolas Cellier uploaded a new version of Exceptions to project The Trunk:
http://source.squeak.org/trunk/Exceptions-nice.23.mcz

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

Name: Exceptions-nice.23
Author: nice
Time: 8 March 2010, 9:10:16.673 pm
UUID: 5ea95a42-7dcf-4044-ab4b-17c2ec6b50f0
Ancestors: Exceptions-nice.22

move SyntaxErrorNotification where it belongs, Compiler

=============== Diff against Exceptions-nice.22 ===============

Item was removed:
- ----- Method: SyntaxErrorNotification>>errorCode (in category 'accessing') -----
- errorCode
- 	^code!

Item was removed:
- ----- Method: SyntaxErrorNotification class>>inClass:category:withCode:doitFlag:errorMessage:location: (in category 'exceptionInstantiator') -----
- inClass: aClass category: aCategory withCode: codeString doitFlag: doitFlag errorMessage: errorString location: location
- 	^ (self new
- 		setClass: aClass
- 		category: aCategory 
- 		code: codeString
- 		doitFlag: doitFlag
- 		errorMessage: errorString
- 		location: location) signal!

Item was removed:
- ----- Method: SyntaxErrorNotification>>doitFlag (in category 'accessing') -----
- doitFlag
- 	^doitFlag!

Item was removed:
- ----- Method: SyntaxErrorNotification>>defaultAction (in category 'exceptionDescription') -----
- defaultAction
- 	^ToolSet debugSyntaxError: self!

Item was removed:
- ----- Method: SyntaxErrorNotification>>errorClass (in category 'accessing') -----
- errorClass
- 	^inClass!

Item was removed:
- ----- Method: SyntaxErrorNotification>>setClass:category:code:doitFlag: (in category 'accessing') -----
- setClass: aClass category: aCategory code: codeString doitFlag: aBoolean
- 	inClass := aClass.
- 	category := aCategory.
- 	code := codeString.
- 	doitFlag := aBoolean !

Item was removed:
- ----- Method: SyntaxErrorNotification>>location (in category 'accessing') -----
- location
- 	^location!

Item was removed:
- ----- Method: SyntaxErrorNotification>>category (in category 'accessing') -----
- category
- 	^category!

Item was removed:
- ----- Method: SyntaxErrorNotification class>>inClass:category:withCode:doitFlag: (in category 'exceptionInstantiator') -----
- inClass: aClass category: aCategory withCode: codeString doitFlag: doitFlag 
- 	^ (self new
- 		setClass: aClass
- 		category: aCategory 
- 		code: codeString
- 		doitFlag: doitFlag) signal!

Item was removed:
- ----- Method: SyntaxErrorNotification>>errorMessage (in category 'accessing') -----
- errorMessage
- 	^errorMessage!

Item was removed:
- Error subclass: #SyntaxErrorNotification
- 	instanceVariableNames: 'inClass code category doitFlag errorMessage location'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Exceptions-Extensions'!

Item was removed:
- ----- Method: SyntaxErrorNotification>>messageText (in category 'accessing') -----
- messageText
- 	^ super messageText
- 		ifNil: [messageText := code]!

Item was removed:
- ----- Method: SyntaxErrorNotification>>setClass:category:code:doitFlag:errorMessage:location: (in category 'accessing') -----
- setClass: aClass category: aCategory code: codeString doitFlag: aBoolean errorMessage: errorString location: anInteger
- 	inClass := aClass.
- 	category := aCategory.
- 	code := codeString.
- 	doitFlag := aBoolean.
- 	errorMessage := errorString.
- 	location := anInteger!