From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 29 Apr 2017 08:01:38 +0000 (-0700)
Subject: Eliminate legacy-string->bytevector call now primitive returns bytevector.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~111
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c71b641fca60787d7474ff13ebe4d92de37b9a5;p=mit-scheme.git

Eliminate legacy-string->bytevector call now primitive returns bytevector.
---

diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm
index 0946d4b22..81fc39c47 100644
--- a/src/runtime/crypto.scm
+++ b/src/runtime/crypto.scm
@@ -278,10 +278,9 @@ USA.
   (md5-bytevector (string->utf8 string start end)))
 
 (define (md5-bytevector bytes #!optional start end)
-  (legacy-string->bytevector
-   (cond ((mhash-available?) (mhash-bytevector 'md5 bytes start end))
-	 ((%md5-available?) (%md5-bytevector bytes start end))
-	 (else (error "This Scheme system was built without MD5 support.")))))
+  (cond ((mhash-available?) (mhash-bytevector 'md5 bytes start end))
+	((%md5-available?) (%md5-bytevector bytes start end))
+	(else (error "This Scheme system was built without MD5 support."))))
 
 (define (%md5-bytevector bytes #!optional start end)
   (let ((end (fix:end-index end (bytevector-length bytes) 'md5-bytevector))