--- a/ClassCategoryReader.st Thu Dec 20 11:48:59 2012 +0000
+++ b/ClassCategoryReader.st Sat Jan 19 01:30:00 2013 +0000
@@ -169,7 +169,7 @@
!ClassCategoryReader class methodsFor:'others'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.53 2011/07/31 07:30:26 cg Exp §'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.53 2011-07-31 07:30:26 cg Exp $'
! !
!ClassCategoryReader methodsFor:'fileIn'!
@@ -326,23 +326,14 @@
(compiler respondsTo:#compile:forClass:inCategory:notifying:install:skipIfSame:silent:)
ifTrue:[
"/ ST/X's compiler
-
- "JV@2012-10-31: Here, we don't want to correct nor define
- undeclared variable, When a code is loaded from a Workspace,
- all not-yet-loaded classes in namespace would become
- Workspace variables which is wrong!!"
- [
- method := compiler
- compile:aString
- forClass:myClass
- inCategory:myCategory
- notifying:requestor
- install:true
- skipIfSame:SkipUnchangedMethods
- silent:silent.
- ] on: Parser undefinedVariableNotification do:[:ex|
- ex proceedWith: false "No, do not correct!!"
- ].
+ method := compiler
+ compile:aString
+ forClass:myClass
+ inCategory:myCategory
+ notifying:requestor
+ install:true
+ skipIfSame:SkipUnchangedMethods
+ silent:silent.
(method notNil and:[method ~~ #Error]) ifTrue:[
canMakeSourceRef ifTrue:[
@@ -390,8 +381,6 @@
"Modified: / 23-01-1998 / 15:25:01 / stefan"
"Created: / 17-05-1998 / 19:56:32 / cg"
"Modified: / 31-07-2011 / 09:30:07 / cg"
- "Modified: / 26-10-2012 / 12:55:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified (format): / 31-10-2012 / 18:10:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileInFrom:aStream silent:beSilent
@@ -451,11 +440,7 @@
!ClassCategoryReader class methodsFor:'documentation'!
version
- ^ '$Id: ClassCategoryReader.st 10861 2012-10-31 18:09:01Z vranyj1 $'
-!
-
-version_SVN
- ^ '$Id: ClassCategoryReader.st 10861 2012-10-31 18:09:01Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.53 2011-07-31 07:30:26 cg Exp $'
! !
ClassCategoryReader initialize!