mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

Fix suspendable implementation of 'get-bytevector-some!'

Browse source 
* module/ice-9/suspendable-ports.scm (get-bytevector-some!): Fix
  incorrect arguments to bytevector-copy!
This commit is contained in:
Andrew Whatson 2021-01-22 20:10:10 +10:00 • committed by Andy Wingo
parent bc50aff6f8
commit f591ad28f1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/suspendable-ports.scm
View file

@ -338,7 +338,7 @@
the-eof-object) the-eof-object)
(let ((transfer-size (min count buffered))) (let ((transfer-size (min count buffered)))
(bytevector-copy! (port-buffer-bytevector buf) cur (bytevector-copy! (port-buffer-bytevector buf) cur
transfer-size start buffered) bv start transfer-size)
(set-port-buffer-cur! buf (+ cur transfer-size)) (set-port-buffer-cur! buf (+ cur transfer-size))
transfer-size)))))) transfer-size))))))