Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SmalltalkChunkFileSourceWriter.st
changeset 13754 0ce8b7b9e6ee
parent 13462 2d4683974fc7
child 14326 8a38e1eb88aa 
--- a/SmalltalkChunkFileSourceWriter.st	Thu Sep 29 13:20:10 2011 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Thu Sep 29 14:56:36 2011 +0200
@@ -117,18 +117,18 @@
         "/
         (collectionOfCategories includes:'documentation') ifTrue:[
 
-            versionMethods do:[:versionMethod |
-                |source|
-
-                source := versionMethod source.
-                (source isEmptyOrNil or:[(source startsWith:nonMeta nameOfOldVersionMethod) not]) ifTrue:[
-                    "something bad happend to the classes code"
-
-                    Class fileOutErrorSignal 
-                        raiseRequestWith:aClass
-                        errorString:' - bad source for version method (uncompiled class file?): ', (versionMethod displayString)
-                ].
-            ].
+"/            versionMethods do:[:versionMethod |
+"/                |source|
+"/
+"/                source := versionMethod source.
+"/                (source isEmptyOrNil or:[(source startsWith:nonMeta nameOfOldVersionMethod) not]) ifTrue:[
+"/                    "something bad happend to the classes code"
+"/
+"/                    Class fileOutErrorSignal 
+"/                        raiseRequestWith:aClass
+"/                        errorString:' - bad source for version method (uncompiled class file?): ', (versionMethod displayString)
+"/                ].
+"/            ].
 
             self fileOutCategory:'documentation' of:meta except:versionMethods only:nil methodFilter:methodFilter on:outStream.
             outStream cr.
@@ -222,7 +222,7 @@
 
     "Created: / 15-11-1995 / 12:53:06 / cg"
     "Modified: / 01-04-1997 / 16:01:05 / stefan"
-    "Modified: / 04-10-2006 / 17:28:33 / cg"
+    "Modified: / 29-09-2011 / 14:53:49 / cg"
 !
 
 fileOutAllDefinitionsOf:aNonMetaClass on:aStream
@@ -494,7 +494,7 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.14 2011-06-29 14:12:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.15 2011-09-29 12:56:36 cg Exp $'
 !
 
 version_SVN
hg/stx-libbasic