Add default Future_Variable_Splice.

diff --git a/v7/src/microcode/lookup.h b/v7/src/microcode/lookup.h
index 45024df8e4598baf105e5905a29a236f1660208e..caa3071f3c1831afa9307f5f96e11ade91a1bdbd 100644 (file)
--- a/v7/src/microcode/lookup.h
+++ b/v7/src/microcode/lookup.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.h,v 9.37 1987/05/29 02:24:06 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.h,v 9.38 1987/07/07 02:40:24 jinx Rel $ */
 
 /* Macros and declarations for the variable lookup code. */
 
@@ -128,6 +128,10 @@ extern Pointer
 #define setup_lock(handle, cell)
 #define remove_lock(ignore)
 
+#endif
+
+#ifndef Future_Variable_Splice
+#define Future_Variable_Splice(Vbl, Ofs, Val)
 #endif
 \f
 /* Pointer *cell, env, *hunk; */

diff --git a/v8/src/microcode/lookup.h b/v8/src/microcode/lookup.h
index 4dc4375adf56afa3b4294b2f5f448202622b58d1..a5db3fad3256803005aca2b5e7912cdc4a385a58 100644 (file)
--- a/v8/src/microcode/lookup.h
+++ b/v8/src/microcode/lookup.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.h,v 9.37 1987/05/29 02:24:06 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.h,v 9.38 1987/07/07 02:40:24 jinx Rel $ */
 
 /* Macros and declarations for the variable lookup code. */
 
@@ -128,6 +128,10 @@ extern Pointer
 #define setup_lock(handle, cell)
 #define remove_lock(ignore)
 
+#endif
+
+#ifndef Future_Variable_Splice
+#define Future_Variable_Splice(Vbl, Ofs, Val)
 #endif
 \f
 /* Pointer *cell, env, *hunk; */