From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 20 Nov 2015 04:07:57 +0000 (-0600)
Subject: Oops, removing (pk)
X-Git-Tag: v0.1.0~137
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=fdc84b774f719102a9c47132994d2ea83bbbcae8

Oops, removing (pk)
---

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)