From fdc84b774f719102a9c47132994d2ea83bbbcae8 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Thu, 19 Nov 2015 22:07:57 -0600 Subject: [PATCH] Oops, removing (pk) --- loopy.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/loopy.scm b/loopy.scm index ee1bc81..3113f82 100644 --- a/loopy.scm +++ b/loopy.scm @@ -356,11 +356,11 @@ Will produce (0 . 0) instead of a negative number, if needed." (cons 0 0)) (soonest-time ; ie, the agenda is non-empty (let* ((current-time (agenda-time agenda))) - (if (time<= (pk 'soonest-time soonest-time) (pk 'current-time current-time)) + (if (time<= soonest-time current-time) ;; Well there's something due so let's select ;; (this avoids a (possible?) race condition chance) (cons 0 0) - (pk 'time-minus (time-minus soonest-time current-time))))) + (time-minus soonest-time current-time)))) (else (cons #f #f))))) (define (do-select) -- 2.31.1