--- a/VSEChunkFileSourceWriter.st Fri Feb 13 02:59:46 2015 +0100
+++ b/VSEChunkFileSourceWriter.st Fri Feb 13 03:02:27 2015 +0100
@@ -238,8 +238,10 @@
classesToFileout := classesToFileout reject:[:cls | cls isSubclassOf: ProjectDefinition ].
classesToFileout topologicalSort:[:a :b | b isSubclassOf:a].
- (classesToFileout contains:[:cls | cls isPrivate]) ifTrue:[
- self error:'Cannot file out private classes'.
+ classesToFileout do:[:cls |
+ cls isPrivate ifTrue:[
+ self error:'Cannot file out private class: ',cls name.
+ ].
].
rewriter := self class vseSourceRewriter new.
@@ -350,10 +352,10 @@
!VSEChunkFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.17 2015-02-13 01:59:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.18 2015-02-13 02:02:27 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.17 2015-02-13 01:59:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.18 2015-02-13 02:02:27 cg Exp $'
! !