diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-12-02 13:23:53 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-12-02 13:30:14 -0500 |
| commit | 223876764e14f5494603858e900b790083270a13 (patch) | |
| tree | 26dc08bd38897b58cdb8a880f4882cdabe993946 | |
| parent | 4fc29ba8a26e0c04c94037ec77c778cb08dff29c (diff) | |
frame: Fix masking error in write-frame.
* web/socket/frame.scm (write-frame)[masked-data]: Correctly copy the
source bytevector.
| -rw-r--r-- | web/socket/frame.scm | 3 |
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)) |