Try quitting if it's EOF

2022-02-01 17:37:46 -08:00
parent 31468f6bb7
commit 6207892c56
1 changed files with 1 additions and 1 deletions
--- a/backplane-auth.scm
+++ b/backplane-auth.scm
@@ -48,7 +48,7 @@
 (define (auth-listener handler)
  (let ((in (current-input-port))
        (out (current-output-port)))
-    (while #t
+    (while (not (eof-object? in))
           (let ((size (bytevector-u16-ref (get-bytevector-n in 2) 0 (endianness big)))
                 (response (make-bytevector 4 0)))
             (bytevector-u8-set! response 1 #x02)