suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Forgot to add files that should have been included in my previous commit.

Browse Source
This commit is contained in:
James Swaine 2010-08-19 09:40:31 -05:00
parent 1a2c0546a6
commit c56ec371bc
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/racket/src/future.c
View File

@ -46,7 +46,7 @@ typedef struct future_t {
int no_retval; int no_retval;
} future_t; } future_t;
static Scheme_Object *future(int argc, Scheme_Object *argv[]) Scheme_Object *future(int argc, Scheme_Object *argv[])
{ {
future_t *ft; 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[]) 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) # 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_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) #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 *touch(int argc, Scheme_Object *argv[]);
static Scheme_Object *processor_count(int argc, Scheme_Object *argv[]); static Scheme_Object *processor_count(int argc, Scheme_Object *argv[]);
static void futures_init(void); 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; Scheme_Future_Thread_State *fts = scheme_future_thread_state;
if (NULL == fts || NULL == fts->current_ft) if (NULL == fts || NULL == fts->current_ft)
return scheme_make_null(); return scheme_false;
return (Scheme_Object*)(fts->current_ft); return (Scheme_Object*)(fts->current_ft);
} }

1
src/racket/src/future.h
View File

@ -141,6 +141,7 @@ void scheme_future_continue_after_gc();
void scheme_check_future_work(); void scheme_check_future_work();
void scheme_future_gc_pause(); void scheme_future_gc_pause();
Scheme_Object *future(int argc, Scheme_Object *argv[]);
Scheme_Object *current_future(int argc, Scheme_Object *argv[]); Scheme_Object *current_future(int argc, Scheme_Object *argv[]);
#ifdef UNIT_TEST #ifdef UNIT_TEST