From a7dd68bd32dcbe75f28393e4c84da82769bcd212 Mon Sep 17 00:00:00 2001
From: Jeremy Penner <jeremy@sporktania.com>
Date: Sat, 14 Jan 2023 22:31:53 -0500
Subject: [PATCH] fix runaway CPU usage when nrepl connected

---
 nrepl.fnl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/nrepl.fnl b/nrepl.fnl
index 173f65d..8c7c92b 100644
--- a/nrepl.fnl
+++ b/nrepl.fnl
@@ -96,7 +96,7 @@
        (local (port host) (values (or opt.port 7888) (or opt.host :localhost)))
        (set self.connection (assert (socket.connect host port)))
        (self.connection:settimeout 0)
-       (core.add_thread #(while true (self:receive) (coroutine.yield)) self)
+       (core.add_thread #(while true (self:receive) (coroutine.yield 0.1)) self)
        (self:send {:op :clone}
          {:new-session #(do (set self.default-session $2)
                             (when opt.on-connect (opt.on-connect self)))})))