diff options
Diffstat (limited to 'module/srfi/srfi-64/testing.scm')
-rw-r--r-- | module/srfi/srfi-64/testing.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/srfi/srfi-64/testing.scm b/module/srfi/srfi-64/testing.scm index d686662bf..37792cd0f 100644 --- a/module/srfi/srfi-64/testing.scm +++ b/module/srfi/srfi-64/testing.scm @@ -433,8 +433,9 @@ (%test-runner-fail-list! r (car (%test-runner-fail-save r))) (%test-runner-fail-save! r (cdr (%test-runner-fail-save r))) (%test-runner-count-list! r (cdr count-list)) - (if (null? (test-runner-group-stack r)) - ((test-runner-on-final r) r))))) + (cond ((null? (test-runner-group-stack r)) + ((test-runner-on-final r) r) + (test-runner-current #f)))))) (define-syntax test-group (syntax-rules () |