From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 24 Feb 2017 20:23:34 +0000 (-0700)
Subject: Fix type test in bytevector->hexadecimal.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=65af35e5c610e9bc2d59ba4212c474e66fa4c769;p=mit-scheme.git

Fix type test in bytevector->hexadecimal.
---

diff --git a/src/runtime/bytevector.scm b/src/runtime/bytevector.scm
index fd0e55ebc..9367a8015 100644
--- a/src/runtime/bytevector.scm
+++ b/src/runtime/bytevector.scm
@@ -379,7 +379,7 @@ USA.
 (define (bytevector->hexadecimal bytes)
   (define-integrable (hex-char k)
     (string-ref "0123456789ABCDEF" (fix:and k #x0F)))
-  (guarantee string? bytes 'bytevector->hexadecimal)
+  (guarantee bytevector? bytes 'bytevector->hexadecimal)
   (let ((n (bytevector-length bytes))
 	(builder (string-builder)))
     (do ((i 0 (fix:+ i 1)))