A note to self that we probably want to wrap procedures with an intent to run

diff --git a/loopy.scm b/loopy.scm
index d878601659e583d63a791a7c1a970ff1c31fa984..261e14db704d9323f2ceab82b3a989359e12da7d 100644 (file)
--- a/loopy.scm
+++ b/loopy.scm
@@ -283,6 +283,8 @@ based on the results"
                 (enq! next-queue new-proc))))
         ;; @@: We might support delay-wrapped procedures here
         (match proc-result
+          ;; TODO: replace procedure with something that indicates
+          ;;   intent to run.  Use a (run foo) procedure
           ((? procedure? new-proc)
            (enqueue new-proc))
           (((? procedure? new-procs) ...)