From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 4 Jun 1993 22:57:12 +0000 (+0000)
Subject: Supply missing argument to fprintf.
X-Git-Tag: 20090517-FFI~8363
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=69c8f5d29747cebff89cb527292bddc4b5c19441;p=mit-scheme.git

Supply missing argument to fprintf.
---

diff --git a/v7/src/microcode/hppacach.c b/v7/src/microcode/hppacach.c
index 237ba2b49..1b846c46f 100644
--- a/v7/src/microcode/hppacach.c
+++ b/v7/src/microcode/hppacach.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/hppacach.c,v 1.3 1991/05/05 20:26:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/hppacach.c,v 1.4 1993/06/04 22:57:12 cph Exp $
 
 Copyright (c) 1990-1991 Massachusetts Institute of Technology
 
@@ -499,10 +499,10 @@ void
 usage ()
 {
   fprintf (stderr, "usage: one of:\n");
-  fprintf (stderr, " %s -update FILENAME\n");
-  fprintf (stderr, " %s -verify FILENAME\n");
-  fprintf (stderr, " %s -print FILENAME\n");
-  fprintf (stderr, " %s -printall FILENAME\n");
+  fprintf (stderr, " %s -update FILENAME\n", (the_argv[0]));
+  fprintf (stderr, " %s -verify FILENAME\n", (the_argv[0]));
+  fprintf (stderr, " %s -print FILENAME\n", (the_argv[0]));
+  fprintf (stderr, " %s -printall FILENAME\n", (the_argv[0]));
   fflush (stderr);
   exit (1);
 }