From c56ec371bc9e73c6ce3ad84e5e1478afbe80fd5f Mon Sep 17 00:00:00 2001
From: James Swaine <jamesswaine@racket-lang.org>
Date: Thu, 19 Aug 2010 09:40:31 -0500
Subject: [PATCH] Forgot to add files that should have been included in my
 previous commit.

---
 src/racket/src/future.c | 7 +++----
 src/racket/src/future.h | 1 +
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/racket/src/future.c b/src/racket/src/future.c
index 647e753343..31c5bcd405 100644
--- a/src/racket/src/future.c
+++ b/src/racket/src/future.c
@@ -46,7 +46,7 @@ typedef struct future_t {
   int no_retval;
 } future_t;
 
-static Scheme_Object *future(int argc, Scheme_Object *argv[])
+Scheme_Object *future(int argc, Scheme_Object *argv[])
 {
   future_t *ft;
 
@@ -126,7 +126,7 @@ static Scheme_Object *processor_count(int argc, Scheme_Object *argv[])
 
 Scheme_Object *current_future(int argc, Scheme_Object *argv[])
 {
-  return scheme_make_null();
+  return scheme_false;
 }
 
 # define FUTURE_PRIM_W_ARITY(name, func, a1, a2, env) GLOBAL_PRIM_W_ARITY(name, func, a1, a2, env)
@@ -194,7 +194,6 @@ void scheme_init_futures_once()
 #define LOG_RTCALL_INT_POBJ_OBJ_OBJ(a,b,c) LOG3("(%d, %p, %p)", a, b, c)
 #define LOG_RTCALL_ENV_ENV_VOID(a,b) LOG2("(%p, %p)", a, b) 
 
-static Scheme_Object *future(int argc, Scheme_Object *argv[]);
 static Scheme_Object *touch(int argc, Scheme_Object *argv[]);
 static Scheme_Object *processor_count(int argc, Scheme_Object *argv[]);
 static void futures_init(void);
@@ -801,7 +800,7 @@ Scheme_Object *current_future(int argc, Scheme_Object *argv[])
 {
   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
   if (NULL == fts || NULL == fts->current_ft)
-    return scheme_make_null();
+    return scheme_false;
  
   return (Scheme_Object*)(fts->current_ft);
 }
diff --git a/src/racket/src/future.h b/src/racket/src/future.h
index 82f75a20c4..d92f905cb6 100644
--- a/src/racket/src/future.h
+++ b/src/racket/src/future.h
@@ -141,6 +141,7 @@ void scheme_future_continue_after_gc();
 void scheme_check_future_work();
 void scheme_future_gc_pause();
 
+Scheme_Object *future(int argc, Scheme_Object *argv[]);
 Scheme_Object *current_future(int argc, Scheme_Object *argv[]);
 
 #ifdef UNIT_TEST