From 2907381f4a7b422823b2304ebe550acbb2f66480 Mon Sep 17 00:00:00 2001
From: Justus Winter <justus@g10code.com>
Date: Thu, 28 Jan 2016 18:19:07 +0100
Subject: [PATCH] tests/gpgscm: Add package macro.

* tests/gpgscm/init.scm: Add package macro from manual.

Signed-off-by: Justus Winter <justus@g10code.com>
---
 tests/gpgscm/init.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm
index 3c0ee7d91..630f27a70 100644
--- a/tests/gpgscm/init.scm
+++ b/tests/gpgscm/init.scm
@@ -600,6 +600,11 @@
 ; Also redefine 'package'
 (define *colon-hook* eval)
 
+(macro (package form)
+  `(apply (lambda ()
+	    ,@(cdr form)
+	    (current-environment))))
+
 ;;;;; I/O
 
 (define (input-output-port? p)