public
/
backplane-auth
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Try quitting if it's EOF

This commit is contained in:
niten 2022-02-01 17:37:46 -08:00
parent 31468f6bb7
commit 6207892c56
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backplane-auth.scm
View File

@ -48,7 +48,7 @@
(define (auth-listener handler) (define (auth-listener handler)
(let ((in (current-input-port)) (let ((in (current-input-port))
(out (current-output-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))) (let ((size (bytevector-u16-ref (get-bytevector-n in 2) 0 (endianness big)))
(response (make-bytevector 4 0))) (response (make-bytevector 4 0)))
(bytevector-u8-set! response 1 #x02) (bytevector-u8-set! response 1 #x02)