diff options
| author | Andrew Whatson <whatson@gmail.com> | 2021-01-22 20:10:10 +1000 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2021-03-12 22:11:58 +0100 |
| commit | f591ad28f1bcec67f17a123766f798d16bec5373 (patch) | |
| tree | 361d3bdd070661830f4dc3373e365ed01e9cca60 | |
| parent | bc50aff6f8b16db7b099daf6cdc192f4de7b5fe0 (diff) | |
| download | guile-f591ad28f1bcec67f17a123766f798d16bec5373.tar.gz | |
Fix suspendable implementation of 'get-bytevector-some!'
* module/ice-9/suspendable-ports.scm (get-bytevector-some!): Fix
incorrect arguments to bytevector-copy!
| -rw-r--r-- | module/ice-9/suspendable-ports.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/suspendable-ports.scm b/module/ice-9/suspendable-ports.scm index f5f005cca..a823f1d37 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)))))) |