From d4ede89981c769b0626ab2b37615da1d12a3b078 Mon Sep 17 00:00:00 2001
From: Justus Winter <justus@g10code.com>
Date: Thu, 30 Jun 2016 11:46:38 +0200
Subject: [PATCH] gpgscm: Use the allocator from libgcrypt.

* tests/gpgscm/main.c (main): Use the allocator from libgcrypt.

Signed-off-by: Justus Winter <justus@g10code.com>
---
 tests/gpgscm/main.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/gpgscm/main.c b/tests/gpgscm/main.c
index adb4e33e7..5b3792eac 100644
--- a/tests/gpgscm/main.c
+++ b/tests/gpgscm/main.c
@@ -39,6 +39,7 @@
 #include "../../common/logging.h"
 #include "../../common/strlist.h"
 #include "../../common/sysutils.h"
+#include "../../common/util.h"
 
 /* The TinyScheme banner.  Unfortunately, it isn't in the header
    file.  */
@@ -236,7 +237,7 @@ main (int argc, char **argv)
   if (log_get_errorcount (0))
     exit (2);
 
-  sc = scheme_init_new ();
+  sc = scheme_init_new_custom_alloc (gcry_malloc, gcry_free);
   if (! sc) {
     fprintf (stderr, "Could not initialize TinyScheme!\n");
     return 2;