ClassCategoryReader.st
branchjv
changeset 17974 bbfb2de13cf2
parent 17911 a99f15c5efa5
child 17975 c3e4cd2a9637
--- a/ClassCategoryReader.st	Thu Sep 27 21:29:25 2012 +0100
+++ b/ClassCategoryReader.st	Fri Oct 26 13:00:58 2012 +0100
@@ -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,14 +326,18 @@
                     (compiler respondsTo:#compile:forClass:inCategory:notifying:install:skipIfSame:silent:)
                     ifTrue:[
                         "/ ST/X's compiler
-                        method := compiler
-                                     compile:aString
-                                     forClass:myClass
-                                     inCategory:myCategory
-                                     notifying:requestor
-                                     install:true
-                                     skipIfSame:SkipUnchangedMethods
-                                     silent:silent.
+                        [
+                            method := compiler
+                                         compile:aString
+                                         forClass:myClass
+                                         inCategory:myCategory
+                                         notifying:requestor
+                                         install:true
+                                         skipIfSame:SkipUnchangedMethods
+                                         silent:silent.
+                        ] on: Parser undefinedVariableNotification do:[:ex|
+                            ex proceedWith: nil
+                        ].
 
                         (method notNil and:[method ~~ #Error]) ifTrue:[
                             canMakeSourceRef ifTrue:[
@@ -381,6 +385,7 @@
     "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>"
 !
 
 fileInFrom:aStream silent:beSilent
@@ -440,15 +445,11 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.53 2011/07/31 07:30:26 cg Exp $'
+    ^ '$Id: ClassCategoryReader.st 10855 2012-10-26 12:00:58Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: ClassCategoryReader.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Id: ClassCategoryReader.st 10855 2012-10-26 12:00:58Z vranyj1 $'
 ! !
 
 ClassCategoryReader initialize!
-
-
-
-