From 8e5b7774ba8c80a209da035a7278f524f44dc6d4 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 1 May 2017 10:22:28 -0700
Subject: [PATCH] Update crypto interface per upstream (2nd attempt).

---
 src/runtime/crypto.scm | 4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
2.25.1