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 8a91d00c75545b266a007ef95ae05db677059096..28d72aca378b39f309e6b3a540e364f1c17b78b4 100644 (file)
--- 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 647a6472b0200cd6e0c3e0f37ea8c8d176ac32f3..962b530fa960c2632b512ed574b662f6e6d0903a 100644 (file)
--- 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));
 }