From a5f294dc1bb013542c7a624d1430b5dee0f2d29e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 12 Jan 2017 00:19:47 -0800 Subject: [PATCH] Fix incorrect caller names. --- src/runtime/binary-port.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm index 3274156cc..f422e9304 100644 --- a/src/runtime/binary-port.scm +++ b/src/runtime/binary-port.scm @@ -444,17 +444,17 @@ USA. (if (default-object? end) (bytevector-length bytevector) (begin - (guarantee index-fixnum? end 'read-bytevector!) + (guarantee index-fixnum? end 'write-bytevector) (if (not (fix:<= end (bytevector-length bytevector))) - (error:bad-range-argument end 'read-bytevector)) + (error:bad-range-argument end 'write-bytevector)) end)))) (let ((start (if (default-object? start) 0 (begin - (guarantee index-fixnum? start 'read-bytevector!) + (guarantee index-fixnum? start 'write-bytevector) (if (not (fix:<= start end)) - (error:bad-range-argument start 'read-bytevector!)) + (error:bad-range-argument start 'write-bytevector)) start))) (bv (buffer-bytes ob))) -- 2.25.1