projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Do not read a frame past EOF.
[8sync.git]
/
8sync
/
systems
/
websocket
/
frame.scm
diff --git
a/8sync/systems/websocket/frame.scm
b/8sync/systems/websocket/frame.scm
index 7a71dba9ff56483b44c222edef00b58e4d439280..831456a61cccb0580d9480cb7734f4be69ca2b89 100644
(file)
--- a/
8sync/systems/websocket/frame.scm
+++ b/
8sync/systems/websocket/frame.scm
@@
-1,5
+1,6
@@
;;; guile-websocket --- WebSocket client/server
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; guile-websocket --- WebSocket client/server
;;; Copyright © 2015 David Thompson <davet@gnu.org>
+;;; Copyright © 2019 Rutger van Beusekom <rutger.van.beusekom@gmail.com>
;;;
;;; This file is part of guile-websocket.
;;;
;;;
;;; This file is part of guile-websocket.
;;;
@@
-309,7
+310,8
@@
MASKING-KEY."
(let ((bv (get-bytevector-n port length)))
(when masking-key
(let ((bv (get-bytevector-n port length)))
(when masking-key
- (mask-bytevector! bv masking-key))
+ (unless (eof-object? bv)
+ (mask-bytevector! bv masking-key)))
bv))
(let* ((type-byte (get-u8 port))
bv))
(let* ((type-byte (get-u8 port))