From e628eef8cf0b2226cdddf2148a430efba02c3aa6 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 4 Feb 2024 12:24:36 +0100 Subject: [PATCH] Fix writeFileStreamOn:do:binary: in Squeak --- .../instance/writeFileStreamOn.do.binary..st | 6 +++--- .../instance/writeFileStreamOn.do.binary..st | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st index 1207150a..9207976d 100644 --- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -1,8 +1,8 @@ -as yet unclassified +files writeFileStreamOn: aString do: aBlock binary: aBoolean | stream | stream := aBoolean - ifTrue: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ] - ifFalse: [ (FileStream fileNamed: aString) binary ]. + ifTrue: [ (FileStream fileNamed: aString) binary ] + ifFalse: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]. [ aBlock value: stream ] ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st index 1207150a..9207976d 100644 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -1,8 +1,8 @@ -as yet unclassified +files writeFileStreamOn: aString do: aBlock binary: aBoolean | stream | stream := aBoolean - ifTrue: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ] - ifFalse: [ (FileStream fileNamed: aString) binary ]. + ifTrue: [ (FileStream fileNamed: aString) binary ] + ifFalse: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]. [ aBlock value: stream ] ensure: [ stream close ] \ No newline at end of file