1
0
mirror of git://git.gnupg.org/gnupg.git synced 2025-01-18 14:17:03 +01:00

tests/gpgscm: Add package macro.

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

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-01-28 18:19:07 +01:00
parent fd881ecc89
commit 6c225eb02f

View File

@ -600,6 +600,11 @@
; Also redefine 'package' ; Also redefine 'package'
(define *colon-hook* eval) (define *colon-hook* eval)
(macro (package form)
`(apply (lambda ()
,@(cdr form)
(current-environment))))
;;;;; I/O ;;;;; I/O
(define (input-output-port? p) (define (input-output-port? p)