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

fix Windows (and maybe other compilers) compile problem

Browse Source
This commit is contained in:
Matthew Flatt 2012-07-11 10:25:16 -06:00
parent 60a0f3b854
commit a022e78ab1
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2062,11 +2062,10 @@ Scheme_Object *touch(int argc, Scheme_Object *argv[])
Scheme_Future_Thread_State *fts = scheme_future_thread_state;
if (fts->is_runtime_thread) {
future_t *ft;
future_t *targ_ft;
if (fts->thread
&& (ft = fts->thread->current_ft)
&& ft->in_tracing_mode) {
targ_ft = (future_t*)argv[0];
future_t *targ_ft = (future_t*)argv[0];
Scheme_Future_State *fs = scheme_future_state;
Scheme_Object *targid_obj;
targid_obj = scheme_make_integer(targ_ft->id);