From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Tue, 17 Nov 2015 23:38:18 +0000 (-0600)
Subject: maybe use pfds instead??
X-Git-Tag: v0.1.0~173
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=54436fdab23d09ee5e0c8976e584a32a3c0eca34;p=8sync.git

maybe use pfds instead??
---

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))