diff options
| author | Justus Winter <[email protected]> | 2017-06-19 14:13:24 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-06-19 14:51:28 +0000 |
| commit | 4c8be58fd46bb16332e84ab8ce978087dc5c68a3 (patch) | |
| tree | 73ece9f441229eb7c0d24aef57301931c611f1a0 /tests/gpgscm/init.scm | |
| parent | tests: Run the OpenPGP tests using the new extended key format. (diff) | |
| download | gnupg-4c8be58fd46bb16332e84ab8ce978087dc5c68a3.tar.gz gnupg-4c8be58fd46bb16332e84ab8ce978087dc5c68a3.zip | |
gpgscm: Improve error reporting.
* tests/gpgscm/init.scm (throw'): Guard against 'args' being atomic.
* tests/gpgscm/scheme.c (Eval_Cycle): Remove any superfluous colons in
error messages.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to 'tests/gpgscm/init.scm')
| -rw-r--r-- | tests/gpgscm/init.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm index 3769ed00d..b78a59e5b 100644 --- a/tests/gpgscm/init.scm +++ b/tests/gpgscm/init.scm @@ -615,7 +615,7 @@ (display message) (when (and args (not (null? args))) (display ": ") - (if (string? (car args)) + (if (and (pair? args) (string? (car args))) (begin (display (car args)) (unless (null? (cdr args)) (newline) |