ClassDefinitionChange.st
branchjv
changeset 4022 b596e506bbe9
parent 3879 9c5661b36fa1
parent 4012 03af2e8d7e13
child 4330 998eb03f0736
--- a/ClassDefinitionChange.st	Tue May 03 09:19:20 2016 +0200
+++ b/ClassDefinitionChange.st	Wed May 04 08:22:14 2016 +0200
@@ -810,7 +810,7 @@
         parseTree receiver isVariable ifTrue:[            
             superClassName := parseTree receiver name.
         ] ifFalse:[
-            parseTree receiver isConstant ifTrue:[
+            parseTree receiver isLiteral ifTrue:[
                 superClassName := parseTree receiver value.
                 superClassName notNil ifTrue:[
                     self error: 'Invalid superclass - can be either a class or nil'
@@ -881,11 +881,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.99 2015-05-27 13:36:10 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.99 2015-05-27 13:36:10 cg Exp $'
+    ^ '$Header$'
 !
 
 version_HG
@@ -894,6 +894,6 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st,v 1.99 2015-05-27 13:36:10 cg Exp $'
+    ^ '$Id$'
 ! !