From e0aae6e3e014d1fc1c3094267e21173f61439dea Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 11 Jun 2014 16:01:04 -0400 Subject: [PATCH] Avoid use of wrap-evt, preferring handle-evt --- minimart/drivers/timer.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/minimart/drivers/timer.rkt b/minimart/drivers/timer.rkt index 9151eca..f272564 100644 --- a/minimart/drivers/timer.rkt +++ b/minimart/drivers/timer.rkt @@ -26,8 +26,8 @@ ;; after the asked-for time. That way it serves as timeout and ;; clock-reader in one. (define (timer-evt msecs) - (wrap-evt (alarm-evt msecs) - (lambda (_) (current-inexact-milliseconds)))) + (handle-evt (alarm-evt msecs) + (lambda (_) (current-inexact-milliseconds)))) (define (make-timer-heap) (make-heap (lambda (t1 t2) (<= (pending-timer-deadline t1) (pending-timer-deadline t2)))))