diff options
| author | Justus Winter <[email protected]> | 2016-01-28 17:19:07 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-06-17 09:38:00 +0000 |
| commit | 2907381f4a7b422823b2304ebe550acbb2f66480 (patch) | |
| tree | 28b9acdcfd433522639c2dec4d7614f4bcb2f64e | |
| parent | tests/gpgscm: Expose function to open streams as Scheme ports. (diff) | |
| download | gnupg-2907381f4a7b422823b2304ebe550acbb2f66480.tar.gz gnupg-2907381f4a7b422823b2304ebe550acbb2f66480.zip | |
tests/gpgscm: Add package macro.
* tests/gpgscm/init.scm: Add package macro from manual.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -rw-r--r-- | tests/gpgscm/init.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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) |