From ea2909fdb8f818f1a0b3473e69df47156ddd0b03 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Jul 2012 16:26:08 -0600 Subject: [PATCH] fix no-future build to be bytecode-consistent with future build --- src/racket/src/future.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/racket/src/future.c b/src/racket/src/future.c index 05f9452d22..41caccb141 100644 --- a/src/racket/src/future.c +++ b/src/racket/src/future.c @@ -244,8 +244,8 @@ void scheme_init_futures(Scheme_Env *newenv) FUTURE_PRIM_W_ARITY("future?", future_p, 1, 1, newenv); FUTURE_PRIM_W_ARITY("future", scheme_future, 1, 1, newenv); FUTURE_PRIM_W_ARITY("processor-count", processor_count, 0, 0, newenv); - FUTURE_PRIM_W_ARITY("current-future", scheme_current_future, 0, 0, newenv); FUTURE_PRIM_W_ARITY("touch", touch, 1, 1, newenv); + FUTURE_PRIM_W_ARITY("current-future", scheme_current_future, 0, 0, newenv); FUTURE_PRIM_W_ARITY("make-fsemaphore", scheme_make_fsemaphore, 1, 1, newenv); FUTURE_PRIM_W_ARITY("fsemaphore?", scheme_fsemaphore_p, 1, 1, newenv); FUTURE_PRIM_W_ARITY("fsemaphore-post", scheme_fsemaphore_post, 1, 1, newenv);