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

2007-12-18 03:32:07 -05:00 · 2007-12-18 03:32:07 -05:00 · cee16e7463
parent bbe388656c
commit cee16e7463
2 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.io.ss
+++ b/scheme/ikarus.io.ss
@ -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)
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1252
+1253