From 9adac66bf1a1cf8e363aef54ddc7c14120c8f0c6 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 11 Dec 2016 19:18:47 -0600 Subject: [PATCH] agenda: Move install-suspendable-ports! call to start-agenda. * 8sync/agenda.scm: Remove install-suspendable-ports! call from top level. (start-agenda): Move install-suspendable-ports! here. --- 8sync/agenda.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/8sync/agenda.scm b/8sync/agenda.scm index 118bb28..da578a7 100644 --- a/8sync/agenda.scm +++ b/8sync/agenda.scm @@ -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 -- 2.31.1