diff options
| -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. |