From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 7 Jul 1987 02:37:36 +0000 (+0000)
Subject: Move New_Future_Number to future.c
X-Git-Tag: 20090517-FFI~13289
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3e14daff17a4d56c3021e970a5a27f09c0555734;p=mit-scheme.git

Move New_Future_Number to future.c
---

diff --git a/v7/src/microcode/future.c b/v7/src/microcode/future.c
index f9d4a3c4e..aba0150ca 100644
--- a/v7/src/microcode/future.c
+++ b/v7/src/microcode/future.c
@@ -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/Attic/future.c,v 9.22 1987/04/16 02:22:53 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/future.c,v 9.23 1987/07/07 02:37:36 jinx Rel $
 
    Support code for futures
 */
@@ -43,6 +43,13 @@ MIT in each case. */
 #include "Error: future.c is useless without COMPILE_FUTURES"
 #endif
 
+/* This is how we support future numbering for external metering */
+#ifndef New_Future_Number
+#define New_Future_Number() NIL
+#else
+Pointer Get_New_Future_Number();
+#endif
+
 /*
 
 A future is a VECTOR starting with <determined?>, <locked?> and