[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/03: Fix suspendable implementation of 'get-bytevector
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/03: Fix suspendable implementation of 'get-bytevector-some!' |
Date: |
Fri, 12 Mar 2021 16:32:17 -0500 (EST) |
wingo pushed a commit to branch master
in repository guile.
commit f591ad28f1bcec67f17a123766f798d16bec5373
Author: Andrew Whatson <whatson@gmail.com>
AuthorDate: Fri Jan 22 20:10:10 2021 +1000
Fix suspendable implementation of 'get-bytevector-some!'
* module/ice-9/suspendable-ports.scm (get-bytevector-some!): Fix
incorrect arguments to bytevector-copy!
---
module/ice-9/suspendable-ports.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/module/ice-9/suspendable-ports.scm
b/module/ice-9/suspendable-ports.scm
index f5f005c..a823f1d 100644
--- a/module/ice-9/suspendable-ports.scm
+++ b/module/ice-9/suspendable-ports.scm
@@ -338,7 +338,7 @@
the-eof-object)
(let ((transfer-size (min count buffered)))
(bytevector-copy! (port-buffer-bytevector buf) cur
- transfer-size start buffered)
+ bv start transfer-size)
(set-port-buffer-cur! buf (+ cur transfer-size))
transfer-size))))))