summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-64/testing.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/srfi/srfi-64/testing.scm')
-rw-r--r--module/srfi/srfi-64/testing.scm5
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 ()