tests/gpgscm: Add package macro.

* tests/gpgscm/init.scm: Add package macro from manual. Signed-off-by: Justus Winter <justus@g10code.com>
2016-01-28 18:19:07 +01:00 · 2016-01-28 18:19:07 +01:00 · 2907381f4a
parent 55275b8e2b
commit 2907381f4a
1 changed files with 5 additions and 0 deletions
--- 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)