Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: VSEFileSourceWriter
authorClaus Gittinger <cg@exept.de>
Mon, 02 Feb 2015 22:56:02 +0100
changeset 3741 54bdd7eb8eb3
parent 3740 093e6a07cee0
child 3742 a5511d19a794
class: VSEFileSourceWriter
VSEFileSourceWriter.st file | annotate | diff | comparison | revisions 
--- a/VSEFileSourceWriter.st	Mon Feb 02 22:28:04 2015 +0100
+++ b/VSEFileSourceWriter.st	Mon Feb 02 22:56:02 2015 +0100
@@ -361,7 +361,11 @@
     eolComments sort:[:a :b | a startPosition < b startPosition].
 
     eolComments reverseDo:[:each |
-        source := (source copyTo:(each endPosition)),'"',(source copyFrom:(each endPosition + 1))
+        (source at:each endPosition) = $" ifTrue:[
+            "/ nothing to do...
+        ] ifFalse:[
+            source := (source copyTo:(each endPosition)),'"',(source copyFrom:(each endPosition + 1))
+        ].
     ].
 
     "/ to verify, check parsability    
@@ -475,10 +479,10 @@
 !VSEFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.10 2015-02-02 21:28:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.11 2015-02-02 21:56:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.10 2015-02-02 21:28:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.11 2015-02-02 21:56:02 cg Exp $'
 ! !
hg/stx-libbasic3