Fixes bug 176816: Incorrect &who for open-output-file

2007-12-18 03:32:07 -05:00
parent bbe388656c
commit cee16e7463
2 changed files with 2 additions and 2 deletions
@@ -1284,7 +1284,7 @@
      (die 'open-output-file "invalid filename" filename))
    (fh->output-port 
       (open-output-file-handle filename (file-options) 
-          'open-input-file)
+          'open-output-file)
       filename
       output-file-buffer-size
       (native-transcoder)
@@ -1 +1 @@
-1252
+1253