From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 1 May 2017 17:22:28 +0000 (-0700)
Subject: Update crypto interface per upstream (2nd attempt).
X-Git-Tag: mit-scheme-pucked-9.2.12~140
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8e5b7774ba8c80a209da035a7278f524f44dc6d4;p=mit-scheme.git

Update crypto interface per upstream (2nd attempt).
---

diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm
index 0d2025a95..6f7cecb68 100644
--- a/src/runtime/crypto.scm
+++ b/src/runtime/crypto.scm
@@ -125,7 +125,9 @@ USA.
 (define mcrypt-block-algorithm?)
 (define mcrypt-block-mode?)
 (define mcrypt-context?)
+(define mcrypt-decrypt!)
 (define mcrypt-encrypt)
+(define mcrypt-encrypt!)
 (define mcrypt-encrypt-port)
 (define mcrypt-end)
 (define mcrypt-init)
@@ -137,6 +139,7 @@ USA.
 (define mcrypt-self-test)
 (define mcrypt-supported-key-sizes)
 
+(define md5-bytevector)
 (define md5-file)
 (define md5-string)
 (define md5-substring)
@@ -144,6 +147,7 @@ USA.
 (define md5-sum->number)
 
 (define make-mhash-keygen-type)
+(define mhash-bytevector)
 (define mhash-context?)
 (define mhash-end)
 (define mhash-file)