From fd686cb11ca1ba89bae3c0efb4fe5771b3102316 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Thu, 9 Jul 2020 22:20:21 -0500
Subject: logic error in repeater

---
 gtwiwtg.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
index c0f5da5..2cba70d 100644
--- a/gtwiwtg.lisp
+++ b/gtwiwtg.lisp
@@ -233,7 +233,7 @@ the values passed as ARGS looped forever."
   (let ((state (copy-list args)))
     (from-thunk
      (lambda ()
-       (unless (car state)
+       (unless state
          (setf state (copy-list args)))
        (pop state)))))
 
-- 
cgit v1.2.3