From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 21 Jun 1990 03:50:30 +0000 (+0000)
Subject: Fix bogus type declaration in Load_Data (FILE * -> SCHEME_OBJECT *).
X-Git-Tag: 20090517-FFI~11368
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cec7ab58906a8a6ad7ae19e527e106d71dbc7151;p=mit-scheme.git

Fix bogus type declaration in Load_Data (FILE * -> SCHEME_OBJECT *).
---

diff --git a/v7/src/microcode/ppband.c b/v7/src/microcode/ppband.c
index 8a91d00c7..28d72aca3 100644
--- a/v7/src/microcode/ppband.c
+++ b/v7/src/microcode/ppband.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/ppband.c,v 9.38 1990/06/20 17:37:59 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/ppband.c,v 9.39 1990/06/21 03:50:30 jinx Exp $
 
 Copyright (c) 1987, 1989, 1990 Massachusetts Institute of Technology
 
@@ -51,7 +51,7 @@ static SCHEME_OBJECT * memory_base;
 long
 Load_Data(Count, To_Where)
      long Count;
-     FILE *To_Where;
+     SCHEME_OBJECT *To_Where;
 {
   return (fread (To_Where, (sizeof (SCHEME_OBJECT)), Count, stdin));
 }
diff --git a/v8/src/microcode/ppband.c b/v8/src/microcode/ppband.c
index 647a6472b..962b530fa 100644
--- a/v8/src/microcode/ppband.c
+++ b/v8/src/microcode/ppband.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/ppband.c,v 9.38 1990/06/20 17:37:59 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/ppband.c,v 9.39 1990/06/21 03:50:30 jinx Exp $
 
 Copyright (c) 1987, 1989, 1990 Massachusetts Institute of Technology
 
@@ -51,7 +51,7 @@ static SCHEME_OBJECT * memory_base;
 long
 Load_Data(Count, To_Where)
      long Count;
-     FILE *To_Where;
+     SCHEME_OBJECT *To_Where;
 {
   return (fread (To_Where, (sizeof (SCHEME_OBJECT)), Count, stdin));
 }