Add missing arguments to error fprintf in setup_io.

diff --git a/v7/src/microcode/psbmap.h b/v7/src/microcode/psbmap.h
index 6eff63d80ee393e2f1172bb253708db67c990475..a211b9e48068d7f6352ff6606de59a8648239e6e 100644 (file)
--- a/v7/src/microcode/psbmap.h
+++ b/v7/src/microcode/psbmap.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbmap.h,v 9.35 1992/02/11 21:14:07 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbmap.h,v 9.36 1992/04/18 00:24:36 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -55,6 +55,7 @@ MIT in each case. */
 #include "sdata.h"
 #include "const.h"
 #include "gccode.h"
+#include "comlin.h"
 
 extern double
   EXFUN (frexp, (double, int *)),
@@ -206,7 +207,7 @@ DEFUN (setup_io, (input_mode, output_mode),
     if (input_file == ((FILE *) NULL))
     {
       fprintf (stderr, "%s: failed to open %s for input.\n",
-              input_file_name);
+              program_name, input_file_name);
       exit (1);
     }
   }
@@ -221,7 +222,7 @@ DEFUN (setup_io, (input_mode, output_mode),
     if (output_file == ((FILE *) NULL))
     {
       fprintf (stderr, "%s: failed to open %s for output.\n",
-              output_file_name);
+              program_name, output_file_name);
       fclose (input_file);
       exit (1);
     }

diff --git a/v8/src/microcode/psbmap.h b/v8/src/microcode/psbmap.h
index aa1ad0aad662f2d0721a7ab0a684d6899c2508ca..bf4156c3b2982bb724dfc26f87fbf0fa278232bd 100644 (file)
--- a/v8/src/microcode/psbmap.h
+++ b/v8/src/microcode/psbmap.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbmap.h,v 9.35 1992/02/11 21:14:07 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbmap.h,v 9.36 1992/04/18 00:24:36 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -55,6 +55,7 @@ MIT in each case. */
 #include "sdata.h"
 #include "const.h"
 #include "gccode.h"
+#include "comlin.h"
 
 extern double
   EXFUN (frexp, (double, int *)),
@@ -206,7 +207,7 @@ DEFUN (setup_io, (input_mode, output_mode),
     if (input_file == ((FILE *) NULL))
     {
       fprintf (stderr, "%s: failed to open %s for input.\n",
-              input_file_name);
+              program_name, input_file_name);
       exit (1);
     }
   }
@@ -221,7 +222,7 @@ DEFUN (setup_io, (input_mode, output_mode),
     if (output_file == ((FILE *) NULL))
     {
       fprintf (stderr, "%s: failed to open %s for output.\n",
-              output_file_name);
+              program_name, output_file_name);
       fclose (input_file);
       exit (1);
     }