diff options
| author | Justus Winter <justus@g10code.com> | 2017-06-19 16:24:18 +0200 |
|---|---|---|
| committer | Justus Winter <justus@g10code.com> | 2017-06-19 16:51:29 +0200 |
| commit | 6639aedaee051e8104d7f63b9a5812abf79440ed (patch) | |
| tree | f14c8bfe6f8bb1339326091ba67563a5279f8e69 /tests | |
| parent | gpgscm: Improve error reporting. (diff) | |
| download | gnupg2-6639aedaee051e8104d7f63b9a5812abf79440ed.tar.xz gnupg2-6639aedaee051e8104d7f63b9a5812abf79440ed.zip | |
gpgscm: Improve error handling of foreign functions.
* tests/gpgscm/ffi.scm (ffi-fail): Do not needlessly join the error
message.
Signed-off-by: Justus Winter <justus@g10code.com>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gpgscm/ffi.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/gpgscm/ffi.scm b/tests/gpgscm/ffi.scm index 3f2e553ab..051c2c21d 100644 --- a/tests/gpgscm/ffi.scm +++ b/tests/gpgscm/ffi.scm @@ -36,8 +36,7 @@ (define (ffi-fail name args message) (let ((args' (open-output-string))) (write (cons (string->symbol name) args) args') - (throw (string-append - (get-output-string args') ": " message)))) + (throw (get-output-string args') message))) ;; Pseudo-definitions for foreign functions. Evaluates to no code, ;; but serves as documentation. |