--- 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!