From 5e162d94e2406afc1835259607f80ee44c2893c5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 11 Oct 2010 14:52:00 -0600
Subject: [PATCH] fix scheme_set_wakeup_time()

---
 src/racket/src/thread.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/thread.c b/src/racket/src/thread.c
index fac4346708..93bad54849 100644
--- a/src/racket/src/thread.c
+++ b/src/racket/src/thread.c
@@ -3688,10 +3688,10 @@ static int check_sleep(int need_activity, int sleep_now)
       }
 
       if (merge_time) {
-	double d = p->sleep_end;
+	double d;
 	double t;
 
-	d = (d - scheme_get_inexact_milliseconds());
+	d = (p_time - scheme_get_inexact_milliseconds());
 
 	t = (d / 1000);
 	if (t <= 0) {