diff options
Diffstat (limited to 'tests/gpgscm/tests.scm')
| -rw-r--r-- | tests/gpgscm/tests.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index 51410020e..dbeda74d7 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -288,7 +288,7 @@ ;; Otherwise this works like mkdtemp. (define (mkdtemp-autoremove . components) (let ((dir (apply mkdtemp components))) - (atexit (lambda () (unlink-recursively dir))) + (atexit (lambda () (if (= *exit-status* 0) (unlink-recursively dir)))) dir)) (define-macro (with-temporary-working-directory . expressions) |