diff options
| -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)) |