diff options
Diffstat (limited to 'tests/gpgscm/init.scm')
| -rw-r--r-- | tests/gpgscm/init.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm index 83261b0..87d3c88 100644 --- a/tests/gpgscm/init.scm +++ b/tests/gpgscm/init.scm @@ -547,11 +547,11 @@ (display n) (display ": ") (let ((tag (get-tag f))) - (unless (null? tag) - (display (basename (car tag))) - (display ":") - (display (+ 1 (cdr tag))) - (display ": "))) + (when (and (pair? tag) (string? (car tag)) (number? (cdr tag))) + (display (basename (car tag))) + (display ":") + (display (+ 1 (cdr tag))) + (display ": "))) (write f)) (newline) (loop (+ n 1) skip (cdr frames)))))) |