From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Thu, 8 Dec 2016 21:37:43 +0000 (-0600)
Subject: agenda: Remove call to deprecated agenda-except-port-map procedure.
X-Git-Tag: v0.3.0~31
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=d9fdd576a7c1b72999845f86d3cc38a8e6053c49;p=8sync.git

agenda: Remove call to deprecated agenda-except-port-map procedure.

* 8sync/agenda.scm (update-agenda-from-select!): Remove call to deprecated
  agenda-except-port-map procedure.
---

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index 8847dc9..28df8be 100644
--- a/8sync/agenda.scm
+++ b/8sync/agenda.scm
@@ -27,7 +27,7 @@
   #:export (<agenda>
             make-agenda agenda?
             agenda-queue agenda-prompt-tag
-            agenda-read-port-map agenda-write-port-map agenda-except-port-map
+            agenda-read-port-map agenda-write-port-map
             agenda-schedule
             
             make-async-prompt-tag
@@ -650,8 +650,7 @@ Also handles sleeping when all we have to do is wait on the schedule."
                           (selector agenda))
               0)))
     (or (has-items? agenda-read-port-map)
-        (has-items? agenda-write-port-map)
-        (has-items? agenda-except-port-map)))
+        (has-items? agenda-write-port-map)))
 
   (if (or (ports-to-select?)
           ;; select doubles as sleep...