From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 5 Dec 1993 06:35:45 +0000 (+0000)
Subject: Fix typo in last change.
X-Git-Tag: 20090517-FFI~7395
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b516eb41a5fd3b9190f7e853a9d53d731bd10221;p=mit-scheme.git

Fix typo in last change.
---

diff --git a/v7/src/microcode/object.h b/v7/src/microcode/object.h
index ed64cff64..d7814df5c 100644
--- a/v7/src/microcode/object.h
+++ b/v7/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: object.h,v 9.44 1993/12/05 06:07:52 cph Exp $
+$Id: object.h,v 9.45 1993/12/05 06:35:45 cph Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -469,7 +469,7 @@ extern SCHEME_OBJECT * memory_base;
 #define FLOATING_VECTOR_REF(vector, index)				\
   (* (FLOATING_VECTOR_LOC ((vector), (index))))
 
-#define FLOATING_VECTOR_REF(vector, index, x)				\
+#define FLOATING_VECTOR_SET(vector, index, x)				\
   (* (FLOATING_VECTOR_LOC ((vector), (index)))) = ((double) (x))
 
 /* Numeric Type Conversions */
diff --git a/v8/src/microcode/object.h b/v8/src/microcode/object.h
index ed64cff64..d7814df5c 100644
--- a/v8/src/microcode/object.h
+++ b/v8/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: object.h,v 9.44 1993/12/05 06:07:52 cph Exp $
+$Id: object.h,v 9.45 1993/12/05 06:35:45 cph Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -469,7 +469,7 @@ extern SCHEME_OBJECT * memory_base;
 #define FLOATING_VECTOR_REF(vector, index)				\
   (* (FLOATING_VECTOR_LOC ((vector), (index))))
 
-#define FLOATING_VECTOR_REF(vector, index, x)				\
+#define FLOATING_VECTOR_SET(vector, index, x)				\
   (* (FLOATING_VECTOR_LOC ((vector), (index)))) = ((double) (x))
 
 /* Numeric Type Conversions */