diff options
Diffstat (limited to 'tests/gpgscm/lib.scm')
| -rw-r--r-- | tests/gpgscm/lib.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/gpgscm/lib.scm b/tests/gpgscm/lib.scm index 6959aa4d0..2cfe725e9 100644 --- a/tests/gpgscm/lib.scm +++ b/tests/gpgscm/lib.scm @@ -20,7 +20,7 @@ (macro (assert form) (let ((tag (get-tag form))) `(if (not ,(cadr form)) - (throw ,(if (pair? tag) + (throw ,(if (and (pair? tag) (string? (car tag)) (number? (cdr tag))) `(string-append ,(car tag) ":" ,(number->string (+ 1 (cdr tag))) ": Assertion failed: ") |