libraries/prompter/prompter: Simplify next-ready-p.

atlas-engineer · Oct 31, 2022 · 44a8b67 · 44a8b67
1 parent 9529794
commit 44a8b67
Showing 1 changed file with 12 additions and 13 deletions.
diff --git a/libraries/prompter/prompter.lisp b/libraries/prompter/prompter.lisp
@@ -436,19 +436,18 @@ This is unblocked when the PROMPTER is `destroy'ed."
       (if (= (length (ready-sources sync-queue))
              (length (sources prompter)))
           t
-          (progn
-            (calispel:fair-alt
-              ((calispel:? (ready-channel sync-queue) next-source)
-               (cond
-                 ((null next-source)
-                  nil)
-                 (t
-                  (push next-source (ready-sources sync-queue))
-                  ;; Update selection when update is done
-                  (select-first prompter)
-                  next-source)))
-              ((calispel:? (sync-interrupt-channel sync-queue))
-               nil))))
+          (calispel:fair-alt
+            ((calispel:? (ready-channel sync-queue) next-source)
+             (cond
+               ((null next-source)
+                nil)
+               (t
+                (push next-source (ready-sources sync-queue))
+                ;; Update selection when update is done:
+                (select-first prompter)
+                next-source)))
+            ((calispel:? (sync-interrupt-channel sync-queue))
+             nil)))
       ;; No sync-queue if no input was ever set.
       t)))