*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 11 Oct 2006 14:24:07 +0200
changeset 10073 efce2ae2cb6f
parent 10072 1bdc8f3c8583
child 10074 7f5870c6a152
*** empty log message ***
ProjectDefinition.st
--- a/ProjectDefinition.st	Wed Oct 11 13:53:50 2006 +0200
+++ b/ProjectDefinition.st	Wed Oct 11 14:24:07 2006 +0200
@@ -2775,10 +2775,21 @@
 !
 
 compiled_classes
-    ^ self compiled_classNames collect:[:eachName| (Smalltalk at:eachName asSymbol)]
+    ^ self compiled_classNames 
+        collect:
+            [:eachName| 
+                |cls|
+
+                cls := (Smalltalk at:eachName asSymbol).
+                cls isNil ifTrue:[
+                    self error:('missing class: ',eachName) mayProceed:true.
+                ].
+                cls.
+            ]
 
     "Created: / 09-08-2006 / 16:28:15 / fm"
     "Modified: / 09-08-2006 / 18:02:28 / fm"
+    "Modified: / 11-10-2006 / 14:23:24 / cg"
 !
 
 compiled_classesDo:aBlock
@@ -3328,7 +3339,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.92 2006-10-10 21:05:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.93 2006-10-11 12:24:07 cg Exp $'
 ! !
 
 ProjectDefinition initialize!