From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 Nov 1994 21:22:47 +0000 (+0000)
Subject: Fix typo that causes compiler warning in OS/2 compiler.
X-Git-Tag: 20090517-FFI~7004
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e4d41eabfb987159df1d369e59ba9e52144a7d7b;p=mit-scheme.git

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 259404053..514b0d773 100644
--- 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)))
 
 /* "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 259404053..514b0d773 100644
--- 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)))
 
 /* "Memorable" FASL versions -- ones where we modified something
    and want to remain backwards compatible.