summaryrefslogtreecommitdiff
path: root/web/socket
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2015-12-02 13:23:53 -0500
committerDavid Thompson <dthompson2@worcester.edu>2015-12-02 13:30:14 -0500
commit223876764e14f5494603858e900b790083270a13 (patch)
tree26dc08bd38897b58cdb8a880f4882cdabe993946 /web/socket
parent4fc29ba8a26e0c04c94037ec77c778cb08dff29c (diff)
frame: Fix masking error in write-frame.
* web/socket/frame.scm (write-frame)[masked-data]: Correctly copy the source bytevector.
Diffstat (limited to 'web/socket')
-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))