security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2024-12-31 11:41:32 +01:00
Code Activity

gpgscm: Tweak error message display.

Browse Source 
* tests/gpgscm/init.scm (throw'): If the first argument to the error
is a string, display it as such.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-04-20 17:38:43 +02:00
parent 06a177ceea
commit 78547bfe8a
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/gpgscm/init.scm
View File

@ -613,8 +613,13 @@
(quit (cadr args)))
(else
(display message)
(if args (begin
(display ": ")
(when (and args (not (null? args)))
(display ": ")
(if (string? (car args))
(begin (display (car args))
(unless (null? (cdr args))
(newline)
(write (cdr args))))
(write args)))
(newline)
(vm-history-print history)