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

diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm
index 0946d4b2236865f2dcc635cf767ebb83a9efa5ec..81fc39c47b7e87bb5a0a8e91ab40d18178ab4e2a 100644 (file)
--- 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))