From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Jan 2000 04:34:37 +0000 (+0000)
Subject: Work around a bug in the Watcom runtime library.
X-Git-Tag: 20090517-FFI~4374
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9b67daa7f538e8a63ec9ffe8c485f6c6bf722b49;p=mit-scheme.git

Work around a bug in the Watcom runtime library.
---

diff --git a/v7/src/microcode/option.c b/v7/src/microcode/option.c
index a582af0e4..c3c4ac57d 100644
--- a/v7/src/microcode/option.c
+++ b/v7/src/microcode/option.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: option.c,v 1.50 2000/01/06 04:22:28 cph Exp $
+$Id: option.c,v 1.51 2000/01/06 04:34:37 cph Exp $
 
 Copyright (c) 1990-2000 Massachusetts Institute of Technology
 
@@ -1051,7 +1051,7 @@ DEFUN (read_band_header, (filename, header),
   FILE * stream = (fopen (filename, "r"));
   if (stream == 0)
     return (0);
-  if ((fread ((&header), (sizeof (SCHEME_OBJECT)), FASL_HEADER_LENGTH, stream))
+  if ((fread (header, (sizeof (SCHEME_OBJECT)), FASL_HEADER_LENGTH, stream))
       != FASL_HEADER_LENGTH)
     {
       fclose (stream);