--- a/SmalltalkChunkFileSourceWriter.st Sat Apr 11 07:03:33 2015 +0100
+++ b/SmalltalkChunkFileSourceWriter.st Mon Apr 13 21:42:19 2015 +0100
@@ -124,7 +124,7 @@
|src|
src := m source.
- src notNil and:[src isWideString]
+ src notNil and:[src isWideString and:[ src contains: [:c | c codePoint > 16rFF ] ] ]
]]].
any16Bit ifTrue:[
@@ -140,6 +140,7 @@
encoder:encoder
"Created: / 04-10-2014 / 12:11:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-04-2015 / 21:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileOut:aClass on:outStreamArg withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter encoder:encoderOrNil
@@ -577,7 +578,7 @@
|source possiblyRewrittenSource rewriteQuery|
- source := aMethod source.
+ source := aMethod source asSingleByteStringIfPossible.
source isNil ifTrue:[
Class fileOutErrorSignal
raiseRequestWith:aMethod mclass
@@ -599,6 +600,8 @@
"/ Transcript showCR: possiblyRewrittenSource.
"/].
].
+
+ "Modified: / 13-04-2015 / 21:37:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileOutMethods: methods on: stream
@@ -715,6 +718,11 @@
^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.30 2015-02-03 19:14:15 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$ Id: SmalltalkChunkFileSourceWriter.st 10643 2011-06-08 21:53:07Z vranyj1 $'
! !