From 6207892c56c566f6ede4154c9e17850334c67620 Mon Sep 17 00:00:00 2001 From: niten Date: Tue, 1 Feb 2022 17:37:46 -0800 Subject: [PATCH] Try quitting if it's EOF --- backplane-auth.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backplane-auth.scm b/backplane-auth.scm index 8aa230a..85cc4e6 100644 --- 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)