[Help-smalltalk] [PATCH 1/2] use Character cr for Squeak export

[Tim Felgentreff]

---
 packages/stinst/parser/SqueakExporter.st |    9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/packages/stinst/parser/SqueakExporter.st 
b/packages/stinst/parser/SqueakExporter.st
index ac314f8..98a62b3 100644
--- a/packages/stinst/parser/SqueakExporter.st
+++ b/packages/stinst/parser/SqueakExporter.st
@@ -30,11 +30,15 @@
 |
  ======================================================================"
 
+Stream extend [
+    nl [
+        self nextPut: Character cr
+    ]
+]
 
 OldSyntaxExporter subclass: SqueakSyntaxExporter [
     <comment: 'This class is responsible for filing out 
                a given class on a given stream in Squeak format'>
-
     
     fileOutDeclaration: aBlock [
         (completeFileOut and: [ outClass environment ~= self defaultNamespace 
])
@@ -46,7 +50,8 @@ OldSyntaxExporter subclass: SqueakSyntaxExporter [
     fileOutChunk: aString [
         outStream
             nl;
-            nextPutAll: (aString copyReplaceAll: '!' with: '!!');
+            nextPutAll: ((aString copyReplaceAll: '!' with: '!!')
+                           replaceAll: Character lf with: Character cr);
             nextPut: $!
     ]