---
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: $!
]
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
