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:
parent
fd881ecc89
commit
6c225eb02f
@ -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)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user