When signalling a file open error, read channel type before closing.

diff --git a/src/runtime/io.scm b/src/runtime/io.scm
index 1bca8e7adbadea0b53c3cdb651a94368516dbf0c..f922990340fc22c9787d1cfdb8cdea2c08bb7c7a 100644 (file)
--- a/src/runtime/io.scm
+++ b/src/runtime/io.scm
@@ -288,18 +288,15 @@ USA.
   (let ((channel (open-channel (lambda (p) (primitive filename p)))))
     (if (or (channel-type=directory? channel)
            (channel-type=unknown? channel))
-       (begin
+       (let ((reason
+              (if (channel-type=directory? channel)
+                  "Is a directory"
+                  "Unknown file type")))
          (channel-close channel)
          (file-open primitive
                     operator
-                    (error:file-operation filename
-                                          "open"
-                                          "file"
-                                          (if (channel-type=directory? channel)
-                                              "Is a directory"
-                                              "Unknown file type")
-                                          operator
-                                          (list filename))))
+                    (error:file-operation filename "open" "file" reason
+                                          operator (list filename))))
        channel)))
 
 (define (file-open-input-channel filename)