tests/gpgscm: Add package macro.
authorJustus Winter <justus@g10code.com>
Thu, 28 Jan 2016 17:19:07 +0000 (18:19 +0100)
committerJustus Winter <justus@g10code.com>
Fri, 17 Jun 2016 09:38:00 +0000 (11:38 +0200)
* tests/gpgscm/init.scm: Add package macro from manual.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/init.scm

index 3c0ee7d..630f27a 100644 (file)
 ; Also redefine 'package'
 (define *colon-hook* eval)
 
+(macro (package form)
+  `(apply (lambda ()
+           ,@(cdr form)
+           (current-environment))))
+
 ;;;;; I/O
 
 (define (input-output-port? p)