diff options
| author | Justus Winter <[email protected]> | 2016-01-28 17:19:07 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-04-21 13:36:34 +0000 |
| commit | 6c225eb02fa3dd96cfc09b8fb72ed9a63d44d2bc (patch) | |
| tree | f0613eb9fc1410fad3505ea966933106901c0006 | |
| parent | tests/gpgscm: Expose function to open streams as Scheme ports. (diff) | |
| download | gnupg-6c225eb02fa3dd96cfc09b8fb72ed9a63d44d2bc.tar.gz gnupg-6c225eb02fa3dd96cfc09b8fb72ed9a63d44d2bc.zip | |
tests/gpgscm: Add package macro.
* tests/gpgscm/init.scm: Add package macro from manual.
Signed-off-by: Justus Winter <[email protected]>
| -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) |