runtime/crypto: Allow strings for module names; fix a string-append.

diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm
index 81fc39c47b7e87bb5a0a8e91ab40d18178ab4e2a..4bd204aba9fcc2dafb9a785eb619c4b3980853a6 100644 (file)
--- a/src/runtime/crypto.scm
+++ b/src/runtime/crypto.scm
@@ -353,8 +353,7 @@ USA.
     (guarantee-mcrypt-context context name)
     (let ((code (primitive (mcrypt-context-index context) bytes start end)))
       (if (not (eqv? code 0))
-         (error (string-append "Error code signalled by " primitive ":")
-                code)))))
+         (error (string "Error code signalled by "name":") code)))))
 
 (define mcrypt-encrypt!
   (make-mcrypt-transform! 'mcrypt-encrypt!
@@ -379,6 +378,7 @@ USA.
   (lambda (object)
     (cond ((mcrypt-context? object) (context-op (mcrypt-context-index object)))
          ((bytevector? object) (module-op object))
+         ((string? object) (module-op (string->utf8 object)))
          (else (error:wrong-type-argument object "mcrypt context" name)))))
 
 (define mcrypt-self-test