summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--web/socket/frame.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/web/socket/frame.scm b/web/socket/frame.scm
index 0b358ae..82711e4 100644
--- a/web/socket/frame.scm
+++ b/web/socket/frame.scm
@@ -334,8 +334,7 @@ MASKING-KEY."
(uint-list->bytevector (list n) (endianness big) size))
(define (masked-data mask data)
- (let* ((length (bytevector-length data))
- (bv (make-bytevector length)))
+ (let ((bv (bytevector-copy data)))
(mask-bytevector! bv mask)
bv))