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

[8sync.git] / 8sync / agenda.scm

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index f22134d0157ca1c01ff1d806922657a8a906cf02..28df8bec25346049833528985823a2ee5333f7ab 100644 (file)
--- 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...
@@ -768,14 +767,12 @@ on suspendable ports."
       (begin body ...)))
 
 (define (wait-for-readable port)
-  (display "Waiting to read\n")
   (8sync-abort-to-prompt
    (make-async-request
     (lambda (kont)
       (make-read-request port (wrap (kont #f)))))))
 
 (define (wait-for-writable port)
-  (display "Waiting to write\n")
   (8sync-abort-to-prompt
    (make-async-request
     (lambda (kont)