--- a/MCSystemCategoryParser.st Sat Aug 20 13:40:49 2011 +0200
+++ b/MCSystemCategoryParser.st Sat Aug 20 13:40:55 2011 +0200
@@ -18,19 +18,23 @@
addDefinitionsTo: aCollection
| definition |
- definition _ aCollection detect: [:ea | ea isOrganizationDefinition ] ifNone: [aCollection add: (MCOrganizationDefinition categories: #())].
+ definition := aCollection detect: [:ea | ea isOrganizationDefinition ] ifNone: [aCollection add: (MCOrganizationDefinition categories: #())].
definition categories: (definition categories copyWith: self category).
!
category
| tokens |
- tokens _ Scanner new scanTokens: source.
+ tokens := Scanner new scanTokens: source.
tokens size = 3 ifFalse: [self error: 'Unrecognized category definition'].
^ tokens at: 3
! !
!MCSystemCategoryParser class methodsFor:'documentation'!
-version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSystemCategoryParser.st,v 1.1 2006-11-22 13:06:43 cg Exp $'
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSystemCategoryParser.st,v 1.2 2011-08-20 11:40:55 cg Exp $'
+!
+
+version_SVN
+ ^ '§Id: MCSystemCategoryParser.st 5 2010-08-29 07:30:29Z vranyj1 §'
! !