X Tutup
Skip to content

Commit 74b46ba

Browse files
author
Johan Brichau
committed
A bit more succinct implementation of write:toFile:inFolder:
1 parent 2908a8f commit 74b46ba

File tree

1 file changed

+1
-4
lines changed

1 file changed

+1
-4
lines changed
Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,8 @@
11
file library
22
write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
33
"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
4-
5-
| folder |
6-
folder := FileSystem disk resolveString: aFolderString.
74
"TODO: wantsLineEndConversion: true; ??"
85
^ self
9-
writeFileStreamOn: (folder / aFileNameString) asFileReference ensureDelete fullName
6+
writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString
107
do: [ :stream | stream nextPutAll: aStringOrByteArray ]
118
binary: aStringOrByteArray isString not

0 commit comments

Comments
 (0)
X Tutup