Fix typo that causes compiler warning in OS/2 compiler.

diff --git a/v7/src/microcode/fasl.h b/v7/src/microcode/fasl.h
index 2594040535311476cadaa7a926f7ff41d8eb8737..514b0d773cf3edbf259688f6511838e492884887 100644 (file)
--- a/v7/src/microcode/fasl.h
+++ b/v7/src/microcode/fasl.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: fasl.h,v 9.35 1993/11/08 06:34:23 gjr Exp $
+$Id: fasl.h,v 9.36 1994/11/19 21:22:47 cph Exp $
 
-Copyright (c) 1987-1993 Massachusetts Institute of Technology
+Copyright (c) 1987-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -93,7 +93,7 @@ MIT in each case. */
 #define MAKE_CI_VERSION(Band_p, Version, Processor_Type)               \
   MAKE_OBJECT (((Band_p) ? TC_TRUE : TC_NULL),                         \
               ((((unsigned long) (Version)) << (DATUM_LENGTH / 2))     \
-               | (Processor_Type)))                                    \
+               | (Processor_Type)))
 \f
 /* "Memorable" FASL versions -- ones where we modified something
    and want to remain backwards compatible.

diff --git a/v8/src/microcode/fasl.h b/v8/src/microcode/fasl.h
index 2594040535311476cadaa7a926f7ff41d8eb8737..514b0d773cf3edbf259688f6511838e492884887 100644 (file)
--- a/v8/src/microcode/fasl.h
+++ b/v8/src/microcode/fasl.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: fasl.h,v 9.35 1993/11/08 06:34:23 gjr Exp $
+$Id: fasl.h,v 9.36 1994/11/19 21:22:47 cph Exp $
 
-Copyright (c) 1987-1993 Massachusetts Institute of Technology
+Copyright (c) 1987-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -93,7 +93,7 @@ MIT in each case. */
 #define MAKE_CI_VERSION(Band_p, Version, Processor_Type)               \
   MAKE_OBJECT (((Band_p) ? TC_TRUE : TC_NULL),                         \
               ((((unsigned long) (Version)) << (DATUM_LENGTH / 2))     \
-               | (Processor_Type)))                                    \
+               | (Processor_Type)))
 \f
 /* "Memorable" FASL versions -- ones where we modified something
    and want to remain backwards compatible.