# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1541625775 -3600
# Node ID 74d847ad5d1e8d5c515be369f7ad46b03e2ecf44
# Parent  2ececed7e10719cb94b5cd8146a6457d9e62cdf8
#REFACTORING by cg
class: AbstractSourceFileReader
changed: #fileIn:

diff -r 2ececed7e107 -r 74d847ad5d1e AbstractSourceFileReader.st
--- a/AbstractSourceFileReader.st	Wed Nov 07 22:18:17 2018 +0100
+++ b/AbstractSourceFileReader.st	Wed Nov 07 22:22:55 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2009 by Claus Gittinger / eXept Software AG
               All Rights Reserved
@@ -67,15 +69,13 @@
 !AbstractSourceFileReader methodsFor:'fileIn'!
 
 fileIn:aFilename
-
-    | stream |
-    [stream := aFilename asFilename readStream.
-    self fileInStream: stream]
-        ensure:
-            [stream notNil ifTrue:[stream close]]
+    aFilename asFilename readingFileDo:[:stream |
+        self fileInStream: stream
+    ]
 
     "Modified: / 15-08-2009 / 14:47:29 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 08-08-2010 / 14:38:35 / cg"
+    "Modified: / 07-11-2018 / 22:22:35 / Claus Gittinger"
 !
 
 fileInStream:arg