ClassCategoryReader.st
branchjv
changeset 18011 deb0c3355881
parent 17979 f7b926e73893
parent 13535 991cd63e450c
child 18084 ab5b38bd8f81
--- 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!