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