fix scheme_set_wakeup_time()

This commit is contained in:
Matthew Flatt 2010-10-11 14:52:00 -06:00
parent 7847872400
commit 5e162d94e2

View File

@ -3688,10 +3688,10 @@ static int check_sleep(int need_activity, int sleep_now)
} }
if (merge_time) { if (merge_time) {
double d = p->sleep_end; double d;
double t; double t;
d = (d - scheme_get_inexact_milliseconds()); d = (p_time - scheme_get_inexact_milliseconds());
t = (d / 1000); t = (d / 1000);
if (t <= 0) { if (t <= 0) {