agenda: Move install-suspendable-ports! call to start-agenda.
authorChristopher Allan Webber <cwebber@dustycloud.org>
Mon, 12 Dec 2016 01:18:47 +0000 (19:18 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Mon, 12 Dec 2016 01:18:47 +0000 (19:18 -0600)
* 8sync/agenda.scm: Remove install-suspendable-ports! call from top level.
  (start-agenda): Move install-suspendable-ports! here.

8sync/agenda.scm

index 118bb28d9a53374af007ab0826e08c30b0e4b29f..da578a77f25a0ad839ba80f379ded4bac102d697 100644 (file)
@@ -78,8 +78,6 @@
             %current-agenda
             start-agenda agenda-run-once))
 
-(install-suspendable-ports!)
-
 ;; @@: Using immutable agendas here, so wouldn't it make sense to
 ;;   replace this queue stuff with using pfds based immutable queues?
 
@@ -617,6 +615,7 @@ on suspendable ports."
                        (post-run-hook #f))
   ;; TODO: Document fields
   "Start up the AGENDA"
+  (install-suspendable-ports!)
   (let loop ((agenda agenda))
     (let ((agenda   
            ;; @@: Hm, maybe here would be a great place to handle