From: Guillermo J. Rozas Date: Tue, 7 Jul 1987 02:40:24 +0000 (+0000) Subject: Add default Future_Variable_Splice. X-Git-Tag: 20090517-FFI~13287 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=43ee50306cffcfe889b7bbbbccdf0b256e264486;p=mit-scheme.git Add default Future_Variable_Splice. --- diff --git a/v7/src/microcode/lookup.h b/v7/src/microcode/lookup.h index 45024df8e..caa3071f3 100644 --- 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 /* Pointer *cell, env, *hunk; */ diff --git a/v8/src/microcode/lookup.h b/v8/src/microcode/lookup.h index 4dc4375ad..a5db3fad3 100644 --- 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 /* Pointer *cell, env, *hunk; */