From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Jan 2017 08:19:47 +0000 (-0800)
Subject: Fix incorrect caller names.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~145
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a5f294dc1bb013542c7a624d1430b5dee0f2d29e;p=mit-scheme.git

Fix incorrect caller names.
---

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