From 54436fdab23d09ee5e0c8976e584a32a3c0eca34 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Tue, 17 Nov 2015 17:38:18 -0600
Subject: [PATCH] maybe use pfds instead??

---
 loopy.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/loopy.scm b/loopy.scm
index e03cab6..a77b792 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -4,7 +4,7 @@
              (ice-9 match))
 
 ;; @@: Using immutable agendas here, so wouldn't it make sense to
-;;   replace this
+;;   replace this queue stuff with using pfds based immutable queues?
 
 (define-immutable-record-type <agenda>
   (make-agenda-intern queue prompt-tag)
@@ -24,7 +24,10 @@
 
 (define* (start-agenda agenda #:optional stop-condition)
   (let loop ((agenda agenda))
-    (let ((new-agenda
+    (let ((new-agenda   
+           ;; @@: Hm, maybe here would be a great place to handle
+           ;;   select'ing on ports.
+           ;;   We could compose over agenda-run-once and agenda-read-ports
            (parameterize ((%current-agenda agenda))
              (agenda-run-once agenda))))
       (if (and stop-condition (stop-condition agenda))
-- 
2.31.1